~ chicken-core (chicken-5) 15b2dc1a570567326699d7729249aeec0ceb9e47

commit 15b2dc1a570567326699d7729249aeec0ceb9e47
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sun Jun 15 20:55:52 2014 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun Jun 15 20:55:52 2014 +0200

    Make compiler.scm honor debug mode when the "d" debug macro is enabled, like the rest

diff --git a/compiler.scm b/compiler.scm
index c7a2e78d..9fc9f1a3 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -269,9 +269,10 @@
 (include "compiler-namespace")
 
 (define (d arg1 . more)
-  (if (null? more)
-      (pp arg1)
-      (apply print arg1 more)))
+  (when (##sys#fudge 13)		; debug mode?
+    (if (null? more)
+	(pp arg1)
+	(apply print arg1 more))))
 
 (define-syntax d (syntax-rules () ((_ . _) (void))))