From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 10 Mar 2015 19:16:05 +0000 (-0700)
Subject: smp: Squash into dbb1583.  Punt unused local variable object?.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d12e4d96acd2c7fbdbc172105989256beeee03a0;p=mit-scheme.git

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

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)))