~ chicken-core (chicken-5) af50ab32216c3e644587eea44bac12bbca4185bc

commit af50ab32216c3e644587eea44bac12bbca4185bc
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Jun 23 19:33:11 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Jun 23 22:31:13 2012 +0200

    Fix finalizer size check: if it's bigger, we're already using one slot beyond the vector

diff --git a/library.scm b/library.scm
index 030fad80..4a0083c1 100644
--- a/library.scm
+++ b/library.scm
@@ -4573,7 +4573,7 @@ EOF
 
 (define set-finalizer! 
   (lambda (x y)
-    (when (fx> (##sys#fudge 26) _max_pending_finalizers)
+    (when (fx>= (##sys#fudge 26) _max_pending_finalizers)
       (if (##core#inline "C_resize_pending_finalizers" (fx* 2 _max_pending_finalizers))
 	  (begin
 	    (set! ##sys#pending-finalizers (##sys#grow-vector ##sys#pending-finalizers