From 0a44542fce2f010dcf7e9edefe05187a62d08a05 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 1 Apr 2014 20:55:31 +0200
Subject: [PATCH] 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...
---
 module/language/cps/dfg.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps/dfg.scm b/module/language/cps/dfg.scm
index 4f32fce54..c390427ee 100644
--- 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)))