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 9c4ed75440c4189103e54bcc2e14bda89ceca1d0..1bf7ea7f265a486d136849dd3c76eb6fab8eddd5 100644 (file)
--- 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)));
 }
 \f
 /* Conversions between Scheme types and Scheme types. */