mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix baseline compilation of let-values and prompt

Browse source 
* module/language/tree-il/compile-bytecode.scm (compile-closure): Fix
  fold invocation for visit-values-handler.
This commit is contained in:
Andy Wingo 2020-05-04 22:37:49 +02:00
parent cfdaf35d73
commit 7a1b7bc485
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/compile-bytecode.scm
View file

@ -819,7 +819,7 @@ in the frame with for the lambda-case clause @var{clause}."
(when (env-boxed? env) (when (env-boxed? env)
(emit-box asm (env-idx env) (env-idx env))) (emit-box asm (env-idx env) (env-idx env)))
env)) env))
names syms env)) env names syms))
(let ((proc-slot (stack-height env)) (let ((proc-slot (stack-height env))
(nreq (length req))) (nreq (length req)))
(unless (and rest (zero? nreq)) (unless (and rest (zero? nreq))