From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 11 Jun 2013 16:17:32 +0000 (+0000)
Subject: Fix typo in i386/rulflo.scm signed zero test.
X-Git-Tag: release-9.2.0~154
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b2993c87d04b6d8bc813dc3a627083545733ddd;p=mit-scheme.git

Fix typo in i386/rulflo.scm signed zero test.

Missed these typos because although I checked for (constant 0.) and
(constant -0.) in the RTL, I didn't check whether they were being
immediately passed to OBJECT->FLOAT...
---

diff --git a/src/compiler/machines/i386/rulflo.scm b/src/compiler/machines/i386/rulflo.scm
index 0a0bb59e8..5dc0ab630 100644
--- a/src/compiler/machines/i386/rulflo.scm
+++ b/src/compiler/machines/i386/rulflo.scm
@@ -816,7 +816,7 @@ USA.
 	 (error "OBJECT->FLOAT: Not a floating-point value" fp-value))
 	((and (flo:= fp-value 0.0)
               ;; XXX Kludgey but expedient test for zero sign.
-              (not (flo:negative? (flo:atan2 x -1.))))
+              (not (flo:negative? (flo:atan2 fp-value -1.))))
 	 (let ((target (flonum-target! target)))
 	   (LAP (FLDZ)
 		(FSTP (ST ,(1+ target))))))