~ chicken-core (chicken-5) 0e9085971b6e365c21b4dcf86881f53e124ab9f8


commit 0e9085971b6e365c21b4dcf86881f53e124ab9f8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Aug 28 12:04:27 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Aug 28 12:04:27 2010 +0200

    disabled debug output

diff --git a/scheduler.scm b/scheduler.scm
index 0df90b81..930f04c1 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -82,14 +82,14 @@ EOF
 
 (include "common-declarations.scm")
 
-(define (dbg . args)
+#;(define (dbg . args)
   (for-each
    (lambda (x)
      (display x ##sys#standard-error))
    args)
   (newline ##sys#standard-error))
 
-#;(define-syntax dbg
+(define-syntax dbg
   (syntax-rules ()
     ((_ . _) #f))) 
 
Trap