diff options
Diffstat (limited to 'module/language/cps/closure-conversion.scm')
-rw-r--r-- | module/language/cps/closure-conversion.scm | 4 |
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 |