abs_d            2314 src/number.c       ScmObj m, x, y, abs_d, d2;
abs_d            2343 src/number.c           abs_d = (sign_d > 0)? Scm_Subtract2(x, y) : Scm_Subtract2(y, x);
abs_d            2344 src/number.c           d2 = Scm_Ash(Scm_Multiply2(m, abs_d), 1);