diff options
author | Andy Wingo <wingo@pobox.com> | 2020-05-11 10:57:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-05-11 10:57:29 +0200 |
commit | f9c9e71046241e29aa7fe6c61094513d6a64ef2a (patch) | |
tree | b8391ff853fcd0542c5b95605761925709bc1c7b /module/language/tree-il/compile-bytecode.scm | |
parent | b99a63447b50ffb9b10bab6d2f57643ab82449c9 (diff) | |
download | guile-f9c9e71046241e29aa7fe6c61094513d6a64ef2a.tar.gz |
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.
Diffstat (limited to 'module/language/tree-il/compile-bytecode.scm')
-rw-r--r-- | module/language/tree-il/compile-bytecode.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm index ea6999594..4ccc84120 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)) (_ |