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