result_real 881 src/number.c double result_real, result_imag; result_real 900 src/number.c result_real = (double)result_int; result_real 903 src/number.c result_real = (double)result_int; result_real 928 src/number.c result_real = SCM_FLONUM_VALUE(arg0); result_real 932 src/number.c result_real += (double)SCM_INT_VALUE(arg1); result_real 934 src/number.c result_real += Scm_BignumToDouble(SCM_BIGNUM(arg1)); result_real 936 src/number.c result_real += SCM_FLONUM_VALUE(arg1); result_real 942 src/number.c Scm_MakeFlonum(result_real), result_real 945 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeFlonum(result_real); result_real 951 src/number.c result_real = SCM_COMPLEX_REAL(arg0); result_real 956 src/number.c result_real += (double)SCM_INT_VALUE(arg1); result_real 958 src/number.c result_real += Scm_BignumToDouble(SCM_BIGNUM(arg1)); result_real 960 src/number.c result_real += SCM_FLONUM_VALUE(arg1); result_real 962 src/number.c result_real += SCM_COMPLEX_REAL(arg1); result_real 966 src/number.c Scm_MakeComplexNormalized(result_real, result_real 971 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag); result_real 985 src/number.c double result_real, result_imag; result_real 989 src/number.c result_real = 0.0; result_real 1005 src/number.c result_real = (double)result_int; result_real 1008 src/number.c result_real = (double)result_int; result_real 1028 src/number.c result_real = SCM_FLONUM_VALUE(arg0); result_real 1032 src/number.c result_real -= (double)SCM_INT_VALUE(arg1); result_real 1034 src/number.c result_real -= Scm_BignumToDouble(SCM_BIGNUM(arg1)); result_real 1036 src/number.c result_real -= SCM_FLONUM_VALUE(arg1); result_real 1041 src/number.c Scm_MakeFlonum(result_real), result_real 1045 src/number.c return Scm_MakeFlonum(result_real); result_real 1051 src/number.c result_real = SCM_COMPLEX_REAL(arg0); result_real 1056 src/number.c result_real -= (double)SCM_INT_VALUE(arg1); result_real 1058 src/number.c result_real -= Scm_BignumToDouble(SCM_BIGNUM(arg1)); result_real 1060 src/number.c result_real -= SCM_FLONUM_VALUE(arg1); result_real 1062 src/number.c result_real -= SCM_COMPLEX_REAL(arg1); result_real 1066 src/number.c Scm_MakeComplexNormalized(result_real, result_real 1071 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag); result_real 1087 src/number.c double result_real, result_imag; result_real 1109 src/number.c result_real = (double)result_int; result_real 1112 src/number.c result_real = (double)result_int; result_real 1132 src/number.c result_real = SCM_FLONUM_VALUE(arg0); result_real 1136 src/number.c result_real *= (double)SCM_INT_VALUE(arg1); result_real 1138 src/number.c result_real *= Scm_BignumToDouble(SCM_BIGNUM(arg1)); result_real 1140 src/number.c result_real *= SCM_FLONUM_VALUE(arg1); result_real 1146 src/number.c Scm_MakeFlonum(result_real), arg1, args); result_real 1148 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeFlonum(result_real); result_real 1154 src/number.c result_real = SCM_COMPLEX_REAL(arg0); result_real 1159 src/number.c result_real *= (double)SCM_INT_VALUE(arg1); result_real 1163 src/number.c result_real *= dd; result_real 1166 src/number.c result_real *= SCM_FLONUM_VALUE(arg1); result_real 1171 src/number.c double t = result_real * r - result_imag * i; result_real 1172 src/number.c result_imag = result_real * i + result_imag * r; result_real 1173 src/number.c result_real = t; result_real 1176 src/number.c Scm_MakeComplexNormalized(result_real, result_real 1181 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag); result_real 1198 src/number.c double result_real = 0.0, result_imag = 0.0; result_real 1203 src/number.c result_real = result_imag = div_real = div_imag = 0.0; result_real 1205 src/number.c result_real = (double)SCM_INT_VALUE(arg0); result_real 1217 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); result_real 1227 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); result_real 1236 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); result_real 1241 src/number.c result_real = Scm_BignumToDouble(SCM_BIGNUM(arg0)); result_real 1247 src/number.c result_real = SCM_FLONUM_VALUE(arg0); result_real 1262 src/number.c Scm_MakeFlonumToNumber(result_real, exact), result_real 1265 src/number.c result_real /= div_real; result_real 1267 src/number.c return Scm_MakeFlonumToNumber(result_real, exact); result_real 1274 src/number.c result_real = SCM_COMPLEX_REAL(arg0); result_real 1290 src/number.c Scm_MakeComplexNormalized(result_real, result_real 1295 src/number.c r = (result_real*div_real + result_imag*div_imag)/d; result_real 1296 src/number.c i = (result_imag*div_real - result_real*div_imag)/d; result_real 1297 src/number.c result_real = r; result_real 1300 src/number.c return Scm_MakeComplexNormalized(result_real, result_imag);