Fix typo.

diff --git a/src/compiler/machines/x86-64/rulflo.scm b/src/compiler/machines/x86-64/rulflo.scm
index 0a3fd79d11da1901b6e511dd00ba5241b658f0e9..3b66847eb379729e9ae884cc35bdf097c8052923 100644 (file)
--- a/src/compiler/machines/x86-64/rulflo.scm
+++ b/src/compiler/machines/x86-64/rulflo.scm
@@ -360,7 +360,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-reference! target)))
            (LAP (XORF P D ,target ,target))))
         (else