HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
747022e
)
fix <prompt> compilation bug
author
Andy Wingo
<wingo@pobox.com>
Mon, 22 Feb 2010 19:19:32 +0000
(20:19 +0100)
committer
Andy Wingo
<wingo@pobox.com>
Mon, 22 Feb 2010 19:19:32 +0000
(20:19 +0100)
* module/language/tree-il/analyze.scm (analyze-lexicals): Fix bug
analysing <prompt> expressions.
module/language/tree-il/analyze.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/language/tree-il/analyze.scm
b/module/language/tree-il/analyze.scm
index
c5f6cb9
..
1e9d899
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 handler)))
+ (lset-union eq? (step tag) (step
body) (step
handler)))
((<abort> tag args)
(apply lset-union eq? (step tag) (map step args)))