[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] 06/09: Fix module capture for closures in <fix>
Date: Mon, 11 May 2020 09:08:28 -0400 (EDT)

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 
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)
                              asm (env-idx env) (length free-vars) label 0)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]