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