summaryrefslogtreecommitdiff
path: root/module/language/tree-il/compile-cps.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/compile-cps.scm')
-rw-r--r--module/language/tree-il/compile-cps.scm3
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)