~ chicken-core (chicken-5) f9a6702c0c18c8d2b58286ada4f4c0b9cf4802a3

commit f9a6702c0c18c8d2b58286ada4f4c0b9cf4802a3
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Oct 15 23:44:14 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Oct 27 10:40:08 2011 +0200

    disable debug output in scrutinizer

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 674e54d2..22527677 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -48,12 +48,8 @@
 
 (define dd d)
 
-(cond-expand				;XXX remove cond-expand later
-  ((not debugbuild)
-   (begin
-     (define-syntax d (syntax-rules () ((_ . _) (void))))
-     (define-syntax dd (syntax-rules () ((_ . _) (void))))))
-  (else))
+(define-syntax d (syntax-rules () ((_ . _) (void))))
+(define-syntax dd (syntax-rules () ((_ . _) (void))))))
 
 
 ;;; Walk node tree, keeping type and binding information