~ 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