smp: Squash into dbb1583. Punt unused local variable object?.

diff --git a/src/runtime/gcfinal.scm b/src/runtime/gcfinal.scm
index de36bc379dc5ab3ecd6d9a79bbbe88aa1e7b3eaa..fbc22c01687941fb85ddfa64c7fe8de43297becc 100644 (file)
--- a/src/runtime/gcfinal.scm
+++ b/src/runtime/gcfinal.scm
@@ -94,7 +94,6 @@ USA.
 (define (remove-from-locked-gc-finalizer! finalizer object)
   ;;(assert-locked 'REMOVE-FROM-LOCKED-GC-FINALIZER!)
   (let ((procedure (gc-finalizer-procedure finalizer))
-       (object? (gc-finalizer-object? finalizer))
        (object-context (gc-finalizer-object-context finalizer))
        (set-object-context! (gc-finalizer-set-object-context! finalizer)))
     (let ((context (object-context object)))