diff options
Diffstat (limited to 'module/language/glil/compile-assembly.scm')
-rw-r--r-- | module/language/glil/compile-assembly.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/language/glil/compile-assembly.scm b/module/language/glil/compile-assembly.scm index b2ea8dcab..cecfd86b4 100644 --- a/module/language/glil/compile-assembly.scm +++ b/module/language/glil/compile-assembly.scm @@ -178,7 +178,7 @@ (emit-code (align-program prog addr))) (else (let ((table (dump-object (make-object-table objects) addr)) - (closure (if (> closure-level 0) '((make-closure)) '()))) + (closure '())) (cond (object-alist ;; if we are being compiled from something with an object @@ -267,8 +267,8 @@ ((empty-box) 'empty-box) (else (error "what" op))) (case op - ((ref) (if boxed? 'closure-boxed-ref 'closure-ref)) - ((set) (if boxed? 'closure-boxed-set (error "what." glil))) + ((ref) (if boxed? 'free-boxed-ref 'free-ref)) + ((set) (if boxed? 'free-boxed-set (error "what." glil))) (else (error "what" op)))) ,index)))) |