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 0b239087c46f49d558d3ea0be0616bcb2afb8b4d..02b32b3c99d35ccb595e1cc706ece3d88662b200 100644 (file)
--- 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))