mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

Fix DFG compute-reachable bug

Browse source 
* 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...
This commit is contained in:
Andy Wingo 2014-04-01 20:55:31 +02:00
parent f082c5f30a
commit 0a44542fce
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps/dfg.scm
View file

@ -231,7 +231,7 @@ for quickest convergence."
(cond (cond
((zero? n) ((zero? n)
(if changed? (if changed?
(lp 0 #f) (lp k-count #f)
reachable)) reachable))
(else (else
(let ((n (1- n))) (let ((n (1- n)))