diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index a2d89607..d036d240 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -755,7 +755,7 @@ expandToVMForm x == ident? x and (x' := x has %Rename) => x' atomic? x => x [op,:args] := x - ident? op and (fun:= getOpcodeExpander op) => apply(fun,x,nil) + ident? op and (fun:= getOpcodeExpander op) => apply(fun,[x]) op' := expandToVMForm op args' := expandToVMForm args sameObject?(op,op') and sameObject?(args,args') => x |