From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 13 Nov 2009 19:29:27 +0000 (-0500)
Subject: Fix bug in new double_round: flip order of arguments to copysign.
X-Git-Tag: 20100708-Gtk~243
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1e1179ef0ffe6ff0044d558b8b09053d2fbf7600;p=mit-scheme.git

Fix bug in new double_round: flip order of arguments to copysign.
---

diff --git a/src/microcode/artutl.c b/src/microcode/artutl.c
index 9c4ed7544..1bf7ea7f2 100644
--- a/src/microcode/artutl.c
+++ b/src/microcode/artutl.c
@@ -134,7 +134,7 @@ double_round (double x)
       : (! (0.5 < fractional)))
     return (integral);
   else
-    return (integral + (copysign (x, 1.0)));
+    return (integral + (copysign (1.0, x)));
 }
 
 /* Conversions between Scheme types and Scheme types. */