~ chicken-core (master) 933c4dc51454c9318be80ae1d46a16d860033cdf

commit 933c4dc51454c9318be80ae1d46a16d860033cdf
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 21 08:07:39 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 21 08:07:39 2010 -0400

    debug output

diff --git a/optimizer.scm b/optimizer.scm
index a28801cf..53948100 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -416,7 +416,8 @@
 	   (let ([var (first params)])
 	     (cond ((test var 'contractable)
 		    (touch)
-		    (debugging 'i "removing global contractable" var)
+		    (when (test var 'global)
+		      (debugging 'i "removing global contractable" var))
 		    (make-node '##core#undefined '() '()) )
 		   ((test var 'replacable)
 		    (touch)