summaryrefslogtreecommitdiff
path: root/module/language/cps/closure-conversion.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/cps/closure-conversion.scm')
-rw-r--r--module/language/cps/closure-conversion.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/cps/closure-conversion.scm b/module/language/cps/closure-conversion.scm
index 424a249be..72f0a12ca 100644
--- a/module/language/cps/closure-conversion.scm
+++ b/module/language/cps/closure-conversion.scm
@@ -526,7 +526,7 @@ Otherwise @var{var} is bound, so @var{k} is called with @var{var}."
(ref (cond
((not self-known?)
(build-exp
- ($primcall 'closure-ref idx (self))))
+ ($primcall 'closure-ref `(,idx . ,nfree) (self))))
((= nfree 2)
(build-exp
($primcall (match idx (0 'car) (1 'cdr)) #f
@@ -628,7 +628,7 @@ bound to @var{closure}, and continue to @var{k}."
((not known?)
(lambda (idx val)
(build-exp
- ($primcall 'closure-set! idx (closure val)))))
+ ($primcall 'closure-set! `(,idx . ,count) (closure val)))))
((= count 2)
(lambda (idx val)
(match idx