~ 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