conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 178858: convert-closures "free vars encountered in 

program" error mistakenly happening
This commit is contained in:
Abdulaziz Ghuloum 2007-12-27 13:03:48 -05:00
parent 648991d793
commit 2a96ebf5b1
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.compiler.ss
View File

@ -1280,7 +1280,9 @@
[(constant) x] [(constant) x]
[(var) [(var)
(let ([r (var-referenced x)]) (let ([r (var-referenced x)])
(if (constant? r) r x))] (cond
[(boolean? r) x]
[else (Pred r)]))]
[(primref) (make-constant #t)] [(primref) (make-constant #t)]
[(bind lhs* rhs* body) [(bind lhs* rhs* body)
(do-bind lhs* rhs* body Pred)] (do-bind lhs* rhs* body Pred)]

2
scheme/last-revision
View File

@ -1 +1 @@
1289 1291