frac 1711 src/number.c double frac = modf(v, &r); frac 1713 src/number.c if (frac > 0.5) r += 1.0; frac 1714 src/number.c else if (frac == 0.5) { frac 1718 src/number.c if (frac < -0.5) r -= 1.0; frac 1719 src/number.c else if (frac == -0.5) { frac 775 src/system.c double s, frac; frac 779 src/system.c frac = modf(sec, &s); frac 780 src/system.c return Scm_MakeTime(SCM_SYM_TIME_UTC, (long)s, (long)(frac * 1.0e9));