From 47ae4ac8f478b09bc33ab05d896826bc8f6dd2f1 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 22 Feb 2010 20:19:32 +0100
Subject: [PATCH] fix <prompt> compilation bug

* module/language/tree-il/analyze.scm (analyze-lexicals): Fix bug
  analysing <prompt> expressions.
---
 module/language/tree-il/analyze.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))