From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 16 Mar 2014 17:30:55 +0000 (+0000)
Subject: Remove vestigial unused variable in FAST-DIVISION.
X-Git-Tag: release-9.2.0~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=58f8d6bf1fdab9ad0bd2672cda59284cf3856512;p=mit-scheme.git

Remove vestigial unused variable in FAST-DIVISION.
---

diff --git a/src/compiler/machines/x86-64/rulfix.scm b/src/compiler/machines/x86-64/rulfix.scm
index 0b239087c..02b32b3c9 100644
--- a/src/compiler/machines/x86-64/rulfix.scm
+++ b/src/compiler/machines/x86-64/rulfix.scm
@@ -724,8 +724,7 @@ USA.
   (flush-register! rdx)
   (need-register! rdx)
   (receive (multiplier s1 s2) (fast-divide-prepare (abs d) scheme-object-width)
-    (let* ((subroutine (generate-label 'QUOTIENT))
-	   (if-negative1 (generate-label 'QUO-NEGATIVE-1))
+    (let* ((if-negative1 (generate-label 'QUO-NEGATIVE-1))
 	   (if-negative2 (generate-label 'QUO-NEGATIVE-2))
 	   (merge1 (generate-label 'QUO-MULTIPLY))
 	   (merge2 (generate-label 'QUO-RESULT))