diff options
author | Andy Wingo <wingo@pobox.com> | 2023-11-23 12:37:20 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2023-11-23 12:37:20 +0100 |
commit | 3b7c78cc83995992af0ce033e7f0229921b92ca4 (patch) | |
tree | b630c0b1f42da582c2667cb3ad4763a0b24ece29 /module/language | |
parent | 5ef0ea30faf9fa980681e3b6e24eb9a3884ec83d (diff) | |
download | guile-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.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) |