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:
parent
fa7df5ed3a
commit
e0e47cb527
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue