scale            1994 src/number.c               ScmObj scale = iexpt10(-est);
scale            1995 src/number.c               r =  Scm_Multiply2(r, scale);
scale            1996 src/number.c               mm = Scm_Multiply2(mm, scale);