From 1e1179ef0ffe6ff0044d558b8b09053d2fbf7600 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 13 Nov 2009 14:29:27 -0500
Subject: [PATCH] Fix bug in new double_round: flip order of arguments to
 copysign.

---
 src/microcode/artutl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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. */
-- 
2.25.1