~ chicken-core (chicken-5) 5673d868d79fc87d2527945fee20c0cfddc6801f

commit 5673d868d79fc87d2527945fee20c0cfddc6801f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Mar 20 00:42:33 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Mar 20 00:42:33 2011 +0100

    disabled debug output for expander

diff --git a/common-declarations.scm b/common-declarations.scm
index 530592eb..9201ca4c 100644
--- a/common-declarations.scm
+++ b/common-declarations.scm
@@ -37,10 +37,11 @@
        (when (##sys#fudge 13)
 	 (print arg1 more ...))))))
  (else
-  (declare
-    (safe-globals)
-    (no-bound-checks))
-  (define-syntax d (syntax-rules () ((_ . _) (void))))))
+  (begin
+    (declare
+      (safe-globals)
+      (no-bound-checks))
+    (define-syntax d (syntax-rules () ((_ . _) (void)))))))
 
 (define-syntax define-alias
   (syntax-rules ()
diff --git a/expand.scm b/expand.scm
index 264bd519..e4c05c69 100644
--- a/expand.scm
+++ b/expand.scm
@@ -37,6 +37,8 @@
 
 (include "common-declarations.scm")
 
+(define-syntax d (syntax-rules () ((_ . _) (void))))
+
 (set! ##sys#features
   (append '(#:hygienic-macros 
 	    #:syntax-rules