summaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/language/glil/compile-assembly.scm6
-rw-r--r--module/language/tree-il/compile-glil.scm2
-rw-r--r--module/system/vm/program.scm2
3 files changed, 5 insertions, 5 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))))
diff --git a/module/language/tree-il/compile-glil.scm b/module/language/tree-il/compile-glil.scm
index 29f4683c1..f8410a51d 100644
--- a/module/language/tree-il/compile-glil.scm
+++ b/module/language/tree-il/compile-glil.scm
@@ -503,7 +503,7 @@
(else (error "what" x loc))))
free-locs)
(emit-code #f (make-glil-call 'vector (length free-locs)))
- (emit-code #f (make-glil-call 'make-closure2 2))))
+ (emit-code #f (make-glil-call 'make-closure 2))))
(if (eq? context 'tail)
(emit-code #f (make-glil-call 'return 1)))))))
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 99021ed05..5fd81b4a6 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -33,7 +33,7 @@
program-arity program-meta
program-objcode program? program-objects
- program-module program-base program-free-vars))
+ program-module program-base program-free-variables))
(load-extension "libguile" "scm_init_programs")