From e0e47cb527a09e8d3d28beead1cd50f2ee015b03 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 18 May 2015 21:21:53 +0200
Subject: [PATCH] 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.
---
 module/language/cps2/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/module/language/cps2/utils.scm b/module/language/cps2/utils.scm
index d07356b15..d5955c3fe 100644
--- a/module/language/cps2/utils.scm
+++ b/module/language/cps2/utils.scm
@@ -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