From bba17def0f89aa497e8a69896046cadc40992c93 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Mar 2008 12:45:01 +0000
Subject: [PATCH] try again to fix round for solaris

svn: r8958
---
 src/mzscheme/src/number.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/number.c b/src/mzscheme/src/number.c
index c51ab8554e..c204a1501e 100644
--- a/src/mzscheme/src/number.c
+++ b/src/mzscheme/src/number.c
@@ -1220,7 +1220,7 @@ sch_round (int argc, Scheme_Object *argv[])
     int invert;
 
 #ifdef FMOD_CAN_RETURN_POS_ZERO
-    if (minus_zero_p(d))
+    if ((d == 0.0) && minus_zero_p(d))
       return o;
 #endif