summaryrefslogtreecommitdiff
path: root/module/language/tree-il/compile-bytecode.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-05-11 10:57:29 +0200
committerAndy Wingo <wingo@pobox.com>2020-05-11 10:57:29 +0200
commitf9c9e71046241e29aa7fe6c61094513d6a64ef2a (patch)
treeb8391ff853fcd0542c5b95605761925709bc1c7b /module/language/tree-il/compile-bytecode.scm
parentb99a63447b50ffb9b10bab6d2f57643ab82449c9 (diff)
downloadguile-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.scm2
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))
(_