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 0a0bb59e8cd9232099921069fe5227ca2b690c51..5dc0ab63056b1132f68cf8494f7e607a23654c36 100644 (file)
--- 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))))))