From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 9 Jun 2013 00:37:36 +0000 (-0700)
Subject: Fix typo.
X-Git-Tag: release-9.2.0~159
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f7e4c886f2fd036e6ce29b1d97edf9c1cf931f0;p=mit-scheme.git

Fix typo.
---

diff --git a/src/compiler/machines/x86-64/rulflo.scm b/src/compiler/machines/x86-64/rulflo.scm
index 0a3fd79d1..3b66847eb 100644
--- 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