result_int 880 src/number.c long result_int; result_int 884 src/number.c result_int = 0; result_int 886 src/number.c result_int = SCM_INT_VALUE(arg0); result_int 889 src/number.c result_int += SCM_INT_VALUE(arg1); result_int 890 src/number.c if (result_int > SCM_SMALL_INT_MAX result_int 891 src/number.c || result_int < SCM_SMALL_INT_MIN) { result_int 892 src/number.c arg0 = Scm_MakeBignumFromSI(result_int); result_int 896 src/number.c arg0 = Scm_BignumAdd(SCM_BIGNUM(Scm_MakeBignumFromSI(result_int)), result_int 900 src/number.c result_real = (double)result_int; result_int 903 src/number.c result_real = (double)result_int; result_int 908 src/number.c Scm_MakeInteger(result_int), result_int 911 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeInteger(result_int); result_int 984 src/number.c long result_int; result_int 988 src/number.c result_int = 0; result_int 992 src/number.c result_int = SCM_INT_VALUE(arg0); result_int 995 src/number.c result_int -= SCM_INT_VALUE(arg1); result_int 996 src/number.c if (result_int < SCM_SMALL_INT_MIN result_int 997 src/number.c || result_int > SCM_SMALL_INT_MAX) { result_int 998 src/number.c ScmObj big = Scm_MakeBignumFromSI(result_int); result_int 1002 src/number.c ScmObj big = Scm_MakeBignumFromSI(result_int); result_int 1005 src/number.c result_real = (double)result_int; result_int 1008 src/number.c result_real = (double)result_int; result_int 1012 src/number.c Scm_MakeInteger(result_int), result_int 1015 src/number.c if (SCM_NULLP(args)) return SCM_MAKE_INT(result_int); result_int 1086 src/number.c long result_int; result_int 1091 src/number.c result_int = SCM_INT_VALUE(arg0); result_int 1095 src/number.c long k = result_int * vv; result_int 1097 src/number.c if ((vv != 0 && k/vv != result_int) result_int 1100 src/number.c ScmObj big = Scm_MakeBignumFromSI(result_int); result_int 1104 src/number.c result_int = k; result_int 1106 src/number.c arg0 = Scm_BignumMulSI(SCM_BIGNUM(arg1), result_int); result_int 1109 src/number.c result_real = (double)result_int; result_int 1112 src/number.c result_real = (double)result_int; result_int 1117 src/number.c Scm_MakeInteger(result_int), arg1, args); result_int 1119 src/number.c if (!SCM_PAIRP(args)) return Scm_MakeInteger(result_int);