1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00

Fix fixpoint

* 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

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