Fix DFG compute-reachable bug

* module/language/cps/dfg.scm (compute-reachable): Fix embarassing bug
  where we wouldn't actually iterate to fixpoint.  I haven't seen it
  yet, but that's just luck...

diff --git a/module/language/cps/dfg.scm b/module/language/cps/dfg.scm
index 4f32fce..c390427 100644 (file)
--- a/module/language/cps/dfg.scm
+++ b/module/language/cps/dfg.scm
@@ -231,7 +231,7 @@ for quickest convergence."
         (cond
          ((zero? n)
           (if changed?
-              (lp 0 #f)
+              (lp k-count #f)
               reachable))
          (else
           (let ((n (1- n)))