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

handler of a prompt is in tail context

* module/language/tree-il/analyze.scm (analyze-lexicals): The handler of
  a prompt is in tail context.
This commit is contained in:
Andy Wingo 2010-06-11 17:16:12 +02:00
parent 10e69149f6
commit b920418560

View file

@ -349,7 +349,7 @@
(lset-union eq? (step fluid) (step exp)))
((<prompt> tag body handler)
(lset-union eq? (step tag) (step body) (step handler)))
(lset-union eq? (step tag) (step body) (step-tail handler)))
((<abort> tag args tail)
(apply lset-union eq? (step tag) (step tail) (map step args)))