diff options
Diffstat (limited to 'module/language/tree-il/compile-cps.scm')
-rw-r--r-- | module/language/tree-il/compile-cps.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm index 8f638fd53..e1cf8c297 100644 --- a/module/language/tree-il/compile-cps.scm +++ b/module/language/tree-il/compile-cps.scm @@ -515,7 +515,8 @@ ($primcall 'box-ref #f (box)))))) (else (with-cps cps - ($continue k src ($primcall 'box-ref #f (box)))))))) + (build-term + ($continue k src ($primcall 'box-ref #f (box))))))))) (define-primcall-converter %box-set! (lambda (cps k src op param box val) |