[Guile-commits] 02/04: Fix compilation of prompt in tail context

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit f9c9e71046241e29aa7fe6c61094513d6a64ef2a
Author: Andy Wingo <address@hidden>
AuthorDate: Mon May 11 10:57:29 2020 +0200

    Fix compilation of prompt in tail context
    
    * module/language/tree-il/compile-bytecode.scm (compile-closure):
      Compile body of prompt in values-at context at the frame base, not the
      current env.
---
 module/language/tree-il/compile-bytecode.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/tree-il/compile-bytecode.scm 
b/module/language/tree-il/compile-bytecode.scm
index ea69995..4ccc841 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -850,7 +850,7 @@ in the frame with for the lambda-case clause @var{clause}."
              ('tail
               ;; Would be nice if we could invoke the body in true tail
               ;; context, but that's not how it currently is.
-              (for-values body env)
+              (for-values-at body env (frame-base env))
               (emit-unwind asm)
               (emit-return-values asm))
              (_