summaryrefslogtreecommitdiff
path: root/module/language/glil/compile-assembly.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/glil/compile-assembly.scm')
-rw-r--r--module/language/glil/compile-assembly.scm6
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))))