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