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));