~ chicken-core (chicken-5) efe7f7e5854260f3b49154c2678ff75817f6ab6c

commit efe7f7e5854260f3b49154c2678ff75817f6ab6c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Aug 11 11:44:54 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Aug 11 11:44:54 2011 +0200

    disable unboxing debugging

diff --git a/unboxing.scm b/unboxing.scm
index 94e2e8c4..5225ff56 100644
--- a/unboxing.scm
+++ b/unboxing.scm
@@ -42,7 +42,7 @@
   (when (##sys#fudge 13)
     (printf "[debug] ~a~?~%" (make-string d-depth #\space) fstr args)) )
 
-;(define-syntax d (syntax-rules () ((_ . _) (void))))
+(define-syntax d (syntax-rules () ((_ . _) (void))))
 
 
 (define (perform-unboxing! node)