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

program" error mistakenly happening
2007-12-27 13:03:48 -05:00 · 2007-12-27 13:03:48 -05:00 · 2a96ebf5b1
parent 648991d793
commit 2a96ebf5b1
2 changed files with 4 additions and 2 deletions
--- a/scheme/ikarus.compiler.ss
+++ b/scheme/ikarus.compiler.ss
@ -1280,7 +1280,9 @@
      [(constant) x]
      [(var) 
       (let ([r (var-referenced x)])
-         (if (constant? r) r x))]
+         (cond
+           [(boolean? r) x]
+           [else (Pred r)]))]
      [(primref) (make-constant #t)]
      [(bind lhs* rhs* body)
       (do-bind lhs* rhs* body Pred)]
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1289
+1291