summaryrefslogtreecommitdiff
path: root/module/language
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-11-23 12:37:20 +0100
committerAndy Wingo <wingo@pobox.com>2023-11-23 12:37:20 +0100
commit3b7c78cc83995992af0ce033e7f0229921b92ca4 (patch)
treeb630c0b1f42da582c2667cb3ad4763a0b24ece29 /module/language
parent5ef0ea30faf9fa980681e3b6e24eb9a3884ec83d (diff)
downloadguile-3b7c78cc83995992af0ce033e7f0229921b92ca4.tar.gz
Unbound vars fixup
* module/language/tree-il/compile-cps.scm (%box-ref): Fix untested bug. The peril of a compiler spanning modules...
Diffstat (limited to 'module/language')
-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)