~ chicken-core (chicken-5) 827218d1fcdce342e4e35bba95ad97edb52822f1
commit 827218d1fcdce342e4e35bba95ad97edb52822f1 Author: felix <felix@call-with-current-continuation.org> AuthorDate: Fri Dec 10 15:19:25 2010 +0100 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Fri Dec 10 15:19:25 2010 +0100 trivial change in message diff --git a/library.scm b/library.scm index 17198442..1c73a3d5 100644 --- a/library.scm +++ b/library.scm @@ -4414,7 +4414,7 @@ EOF (set! working #t) (let* ((c (##sys#slot ##sys#pending-finalizers 0)) ) (when (##sys#fudge 13) - (print "[debug] running " c " finalizers (" (##sys#fudge 26) " live, " + (print "[debug] running " c " finalizer(s) (" (##sys#fudge 26) " live, " (##sys#fudge 27) " allocated) ...")) (do ([i 0 (fx+ i 1)]) ((fx>= i c))Trap