~ chicken-core (chicken-5) 95dca5636ef250f73a3257e339e673e3d3cfcf70


commit 95dca5636ef250f73a3257e339e673e3d3cfcf70
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Sep 14 18:50:21 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 14 18:50:21 2010 +0200

    enable scheduler debugging output

diff --git a/scheduler.scm b/scheduler.scm
index 99991198..4a1594c2 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -82,7 +82,7 @@ EOF
 
 (include "common-declarations.scm")
 
-#;(begin
+(begin
     (define stderr ##sys#standard-error) ; use default stderr port
     (define (dbg . args)
       (for-each
@@ -91,7 +91,7 @@ EOF
        args)
       (newline stderr)))
 
-(define-syntax dbg
+#;(define-syntax dbg
   (syntax-rules ()
     ((_ . _) #f))) 
 
Trap