diff options
Diffstat (limited to 'src/interp/g-opt.boot')
| -rw-r--r-- | src/interp/g-opt.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index a4561beb..0a7d1678 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -309,6 +309,10 @@ optCall (x is ['%call,:u]) == x.first := op x.rest := [:a,env] x + fn is ['%function,op] => + x.first := op + x.rest := a + x fn is [q,R,n] and q in '(ELT CONST) => q is 'CONST => ['spadConstant,R,n] emitIndirectCall(fn,a,x) |