Permalink
Browse files

Fix finalizer size check: if it's bigger, we're already using one slo…

…t beyond the vector

(cherry picked from commit af50ab3)
  • Loading branch information...
1 parent 29e9413 commit a77ae51cc9bc6ca10e089db1e3dee9d27dcf8183 Peter Bex committed with Jun 23, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 library.scm
View
@@ -4469,7 +4469,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

0 comments on commit a77ae51

Please sign in to comment.