[Chicken-hackers] [PATCH] disable debug-output for scrutiny

[Felix]

The attached patch disables debugging output for the scrutinizer,
as it is only useful for debugging the compiler.


cheers,
felix

>From 1a7ef59172f5e4675679d1aaa79831ca8e7238c9 Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Sat, 15 Oct 2011 23:44:14 +0200
Subject: [PATCH] disable debug output in scrutinizer

---
 scrutinizer.scm |    8 ++------
 1 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 6d7bc97..32543f3 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
-- 
1.7.0.4