diff options
Diffstat (limited to 'module')
-rw-r--r-- | module/language/glil/compile-assembly.scm | 6 | ||||
-rw-r--r-- | module/language/tree-il/compile-glil.scm | 2 | ||||
-rw-r--r-- | module/system/vm/program.scm | 2 |
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") |