Eliminate use of C99 function copysign; should not be used without

testing in configure.ac.

diff --git a/src/microcode/artutl.c b/src/microcode/artutl.c
index 1bf7ea7f265a486d136849dd3c76eb6fab8eddd5..0ecf0df4a74d5ac133740706ce4d25ec9d9c01cd 100644 (file)
--- a/src/microcode/artutl.c
+++ b/src/microcode/artutl.c
@@ -133,8 +133,10 @@ double_round (double x)
       ? ((fmod (integral, 2.0)) == 0.0)
       : (! (0.5 < fractional)))
     return (integral);
+  else if (x < 0.0)
+    return (integral - 1.0);
   else
-    return (integral + (copysign (1.0, x)));
+    return (integral + 1.0);
 }
 \f
 /* Conversions between Scheme types and Scheme types. */