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