~ chicken-core (chicken-5) c66e4f65ae3da0aaaebe4623f7eb00b2b7a4087b

commit c66e4f65ae3da0aaaebe4623f7eb00b2b7a4087b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 17 05:32:19 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 17 05:32:19 2010 -0400

    use parameterize instead of fluid-let (scheduler)

diff --git a/scheduler.scm b/scheduler.scm
index b834b99c..b475c4d8 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -85,7 +85,7 @@ EOF
 (begin
   (define stderr ##sys#standard-error) ; use default stderr port
   (define (dbg . args)
-    (fluid-let ((print-length-limit #f))
+    (parameterize ((print-length-limit #f))
       (for-each
        (lambda (x)
 	 (display x stderr))