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.

diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index 0bf6b9c..f5ddd32 100644 (file)
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -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)))