try again to fix round for solaris

svn: r8958
2008-03-12 12:45:01 +00:00 · 2008-03-12 12:45:01 +00:00 · bba17def0f
commit bba17def0f
parent d1bd680fca
1 changed files with 1 additions and 1 deletions
--- 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