diff options
-rw-r--r-- | module/language/tree-il/analyze.scm | 2 |
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))) |