~ chicken-core (chicken-5) c9fb43c6c87b80fb8d92205d26783790b0b19e75

commit c9fb43c6c87b80fb8d92205d26783790b0b19e75
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 14 15:46:57 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 14 15:46:57 2010 +0200

    why this?

diff --git a/optimizer.scm b/optimizer.scm
index 2a08a418..65d87343 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -196,7 +196,6 @@
 				    (touch)
 				    ;; Build call to continuation with new result...
 				    (let ((n2 (qnode result)))
-				      (register-cfold var (cddr subs) form n2)
 				      (make-node
 				       '##core#call
 				       '(#t)