>From 934ba6a2d16e840c08baec39855ed393104c2140 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 23 Jun 2012 19:33:11 +0200 Subject: [PATCH] Fix finalizer size check: if it's bigger, we're already using one slot beyond the vector --- library.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/library.scm b/library.scm index 90d22c6..f9142c3 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 -- 1.7.9.1