est              1953 src/number.c           int exp, sign, est, tc1, tc2, tc3, digs, point, round;
est              1990 src/number.c           est = (int)ceil(log10(val) - 0.1);
est              1991 src/number.c           if (est >= 0) {
est              1992 src/number.c               s = Scm_Multiply2(s, iexpt10(est));
est              1994 src/number.c               ScmObj scale = iexpt10(-est);
est              2012 src/number.c               est++;
est              2021 src/number.c           if (est < 10 && est > -3) {
est              2022 src/number.c               point = est; est = 1;
est              2087 src/number.c           est--;
est              2088 src/number.c           if (est != 0) {
est              2090 src/number.c               sprintf(buf, "%d", (int)est);