From d12e4d96acd2c7fbdbc172105989256beeee03a0 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 10 Mar 2015 12:16:05 -0700
Subject: [PATCH] smp: Squash into dbb1583.  Punt unused local variable
 object?.

---
 src/runtime/gcfinal.scm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/runtime/gcfinal.scm b/src/runtime/gcfinal.scm
index de36bc379..fbc22c016 100644
--- 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)))
-- 
2.25.1