~ chicken-core (chicken-5) b1cfee253351cab9fbef8a0cc29fc8520d69d936

commit b1cfee253351cab9fbef8a0cc29fc8520d69d936
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Feb 28 12:51:31 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Feb 28 12:51:31 2011 +0100

    conditionalized some debugging output

diff --git a/compiler.scm b/compiler.scm
index 8b300de0..9103a53f 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -2355,7 +2355,8 @@
 
     (debugging 'p "closure conversion gathering phase...")
     (gather node #f '())
-    (debugging 'o "customizable procedures" customizable)
+    (when (pair? customizable)
+      (debugging 'o "customizable procedures" customizable))
     (debugging 'p "closure conversion transformation phase...")
     (let ((node2 (transform node #f #f)))
       (unless (zero? direct-calls)
@@ -2681,7 +2682,10 @@
     
     (debugging 'p "preparation phase...")
     (let ((node2 (walk node '() #f '())))
-      (debugging 'o "fast box initializations" fastinits)
-      (debugging 'o "fast global references" fastrefs)
-      (debugging 'o "fast global assignments" fastsets)
+      (when (positive? fastinits)
+	(debugging 'o "fast box initializations" fastinits))
+      (when (positive? fastrefs)
+	(debugging 'o "fast global references" fastrefs))
+      (when (positive? fastsets)
+	(debugging 'o "fast global assignments" fastsets))
       (values node2 literals lambda-info-literals lambdas) ) ) )
diff --git a/support.scm b/support.scm
index af0181ec..974c0d77 100644
--- a/support.scm
+++ b/support.scm
@@ -540,7 +540,8 @@
 		   (map walk x) ) ) ) ) )
 	    (else (make-node '##core#call '(#f) (map walk x))) ) )
     (let ([exp2 (walk exp)])
-      (debugging 'o "eliminated procedure checks" count)
+      (when (positive? count)
+	(debugging 'o "eliminated procedure checks" count))
       exp2) ) )
 
 (define (build-expression-tree node)