~ 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