[Guile-commits] 06/09: Fix module capture for closures in <fix>

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 73a23027f5cf61365b4fc5049301b727bf29a10b
Author: Andy Wingo <address@hidden>
AuthorDate: Mon May 11 14:36:00 2020 +0200

    Fix module capture for closures in <fix>
    
    * module/language/tree-il/compile-bytecode.scm (compile-closure):
      Capture closures for <fix> if needed.
---
 module/language/tree-il/compile-bytecode.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/module/language/tree-il/compile-bytecode.scm 
b/module/language/tree-il/compile-bytecode.scm
index deead72..ac6ffba 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -910,6 +910,8 @@ in the frame with for the lambda-case clause @var{clause}."
                        (let ((env (push-local name sym env)))
                          (match closure
                            (($ <closure> label code scope free-vars)
+                            ;; FIXME: Allocate one scope per fix.
+                            (maybe-cache-module! scope 0)
                             (emit-maybe-allocate-closure
                              asm (env-idx env) (length free-vars) label 0)
                             env))))