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

Fix fixpoint

Browse source 
* module/language/cps2/utils.scm (fixpoint): Fix embarrassing bug
  where it wouldn't actually fixpoint!  Didn't show up in practice
  because CPS2 hasn't run after contification yet.
This commit is contained in:
Andy Wingo 2015-05-18 21:21:53 +02:00
parent fa7df5ed3a
commit e0e47cb527
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/cps2/utils.scm
View file

@ -124,7 +124,7 @@
(define (fixpoint f x)
(let ((x* (f x)))
(if (eq? x x*) x* (f x*))))
(if (eq? x x*) x* (fixpoint f x*))))
(define (compute-function-body conts kfun)
(persistent-intset