mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

fix <prompt> compilation bug

Browse source 
* module/language/tree-il/analyze.scm (analyze-lexicals): Fix bug
  analysing <prompt> expressions.
This commit is contained in:
Andy Wingo 2010-02-22 20:19:32 +01:00
parent 747022e4cb
commit 47ae4ac8f4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/analyze.scm
View file

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