~ chicken-core (chicken-5) 6a4da28b7b2f19716c146fa955950c433b9703da

commit 6a4da28b7b2f19716c146fa955950c433b9703da
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Jul 6 15:38:26 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Jul 6 15:38:26 2010 +0200

    write debug-message about forcing finalizers to stderr

diff --git a/library.scm b/library.scm
index ede19bae..094e2eea 100644
--- a/library.scm
+++ b/library.scm
@@ -3488,7 +3488,7 @@ EOF
   (let ([ffp force-finalizers])
     (lambda ()
       (when (##sys#fudge 13)
-	(##sys#print "[debug] forcing finalizers...\n" #f ##sys#standard-output) )
+	(##sys#print "[debug] forcing finalizers...\n" #f ##sys#standard-error) )
       (when (ffp) (##sys#force-finalizers)) ) ) )
 
 (define (on-exit thunk)