realnum 2533 src/number.c double realnum = Scm_GetDouble(fraction); realnum 2535 src/number.c realnum = raise_pow10(realnum, exponent-fracdigs); realnum 2536 src/number.c if (realnum > 0.0 realnum 2540 src/number.c realnum = algorithmR(fraction, exponent-fracdigs, realnum); realnum 2542 src/number.c if (minusp) realnum = -realnum; realnum 2546 src/number.c if (modf(realnum, &integ) != 0.0) { realnum 2550 src/number.c return Scm_InexactToExact(Scm_MakeFlonum(realnum)); realnum 2552 src/number.c return Scm_MakeFlonum(realnum);