From 58f8d6bf1fdab9ad0bd2672cda59284cf3856512 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 16 Mar 2014 17:30:55 +0000 Subject: [PATCH] Remove vestigial unused variable in FAST-DIVISION. --- src/compiler/machines/x86-64/rulfix.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)) -- 2.25.1