summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/language/tree-il/analyze.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index c5f6cb9aa..1e9d899e9 100644
--- 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 handler)))
+ (lset-union eq? (step tag) (step body) (step handler)))
((<abort> tag args)
(apply lset-union eq? (step tag) (map step args)))