From 4f7e4c886f2fd036e6ce29b1d97edf9c1cf931f0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 8 Jun 2013 17:37:36 -0700 Subject: [PATCH] Fix typo. --- src/compiler/machines/x86-64/rulflo.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.25.1