gcfinal: Fix arguments to search-gc-finalizer's predicate.

diff --git a/src/runtime/gcfinal.scm b/src/runtime/gcfinal.scm
index 85a86eb76673c310adc5caedcc4f42e8ae98d0c9..7d740934b05ebca49fb510717049c22b4e195339 100644 (file)
--- a/src/runtime/gcfinal.scm
+++ b/src/runtime/gcfinal.scm
@@ -114,7 +114,10 @@ USA.
   (guarantee gc-finalizer? finalizer 'search-gc-finalizer)
   (with-finalizer-lock finalizer
     (lambda ()
-      (weak-alist-table-search (gc-finalizer-items finalizer) predicate
+      (weak-alist-table-search (gc-finalizer-items finalizer)
+                              (lambda (object context)
+                                (declare (ignore context))
+                                (predicate object))
        (lambda (object context) (declare (ignore context)) object)
        (lambda () #f)))))