1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00

Fix prompt compilation

* module/language/tree-il/compile-bytecode.scm (compile-closure): Fix
  emit-prompt invocation.
This commit is contained in:
Andy Wingo 2020-05-04 22:56:23 +02:00
parent 7a1b7bc485
commit 728de16911

View file

@ -840,7 +840,7 @@ in the frame with for the lambda-case clause @var{clause}."
(khandler (gensym "handler"))
(done (gensym "done")))
(emit-prompt src tag escape-only? proc-slot khandler)
(emit-prompt asm tag escape-only? proc-slot khandler)
(match ctx
('tail
;; Would be nice if we could invoke the body in true tail