~ 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