[Guile-commits] branch main updated: Unbound vars fixup

[Andy Wingo]

This is an automated email from the git hooks/post-receive script.

wingo pushed a commit to branch main
in repository guile.

The following commit(s) were added to refs/heads/main by this push:
     new 3b7c78cc8 Unbound vars fixup
3b7c78cc8 is described below

commit 3b7c78cc83995992af0ce033e7f0229921b92ca4
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Nov 23 12:37:20 2023 +0100

    Unbound vars fixup
    
    * module/language/tree-il/compile-cps.scm (%box-ref): Fix untested bug.
    The peril of a compiler spanning modules...
---
 module/language/tree-il/compile-cps.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)