From abb7e44d1612720a02f3d8bf4883aa1c2e30180b Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Wed, 22 May 2002 13:50:20 +0000
Subject: [PATCH] (idbl2str): Don't omit sign when printing negative zero.

---
 libguile/numbers.c | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/libguile/numbers.c b/libguile/numbers.c
index c1f2d93e9..3a50f6c20 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -2076,7 +2076,16 @@ idbl2str (double f, char *a)
   int exp = 0;
 
   if (f == 0.0)
-    goto zero;			/*{a[0]='0'; a[1]='.'; a[2]='0'; return 3;} */
+    {
+#ifdef HAVE_COPYSIGN
+      double sgn = copysign (1.0, f);
+
+      if (sgn < 0.0)
+	a[ch++] = '-';
+#endif
+
+      goto zero;	/*{a[0]='0'; a[1]='.'; a[2]='0'; return 3;} */
+    }
 
   if (xisinf (f))
     {
-- 
2.20.1