~ chicken-core (chicken-5) 198458cb60998593dea429357d645634341d9e5e

commit 198458cb60998593dea429357d645634341d9e5e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Sep 6 08:48:24 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Sep 6 08:48:24 2010 -0400

    print constfold message before evaluation

diff --git a/optimizer.scm b/optimizer.scm
index 0b225971..a79087fd 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -190,8 +190,8 @@
 				  (unless odirty (set! dirty #f))
 				  (set! broken-constant-nodes (lset-adjoin eq? broken-constant-nodes n1))
 				  n1)
+			      (debugging 'o "folding constant expression" form)
 			      (let ((x (eval form)))
-				(debugging 'o "folding constant expression" form)
 				(touch)
 				(make-node ; Build call to continuation with new result...
 				 '##core#call