SCM_FLONUM_VALUE 340 src/extlib.c ScmObj f = Scm_DecodeFlonum(SCM_FLONUM_VALUE(num), &exp, &sign); SCM_FLONUM_VALUE 140 src/hash.c hashval = (unsigned long)(SCM_FLONUM_VALUE(obj)*2654435761UL); SCM_FLONUM_VALUE 342 src/number.c double v = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 375 src/number.c double v = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 533 src/number.c ScmObj b = Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(obj)); SCM_FLONUM_VALUE 550 src/number.c v = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 593 src/number.c } else if (SCM_FLONUM_VALUE(obj) < 0) { SCM_FLONUM_VALUE 597 src/number.c ScmObj b = Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(obj)); SCM_FLONUM_VALUE 617 src/number.c double v = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 646 src/number.c if (SCM_FLONUMP(obj)) return SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 662 src/number.c double d = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 681 src/number.c return (fmod(SCM_FLONUM_VALUE(obj), 2.0) != 0.0); SCM_FLONUM_VALUE 701 src/number.c double v = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 727 src/number.c double v = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 751 src/number.c obj = Scm_MakeFlonum(-SCM_FLONUM_VALUE(obj)); SCM_FLONUM_VALUE 770 src/number.c double val = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 805 src/number.c double d = SCM_FLONUM_VALUE(obj); SCM_FLONUM_VALUE 851 src/number.c return Scm_MakeComplex(SCM_FLONUM_VALUE(obj), 0.0); SCM_FLONUM_VALUE 928 src/number.c result_real = SCM_FLONUM_VALUE(arg0); SCM_FLONUM_VALUE 936 src/number.c result_real += SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 960 src/number.c result_real += SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1028 src/number.c result_real = SCM_FLONUM_VALUE(arg0); SCM_FLONUM_VALUE 1036 src/number.c result_real -= SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1060 src/number.c result_real -= SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1132 src/number.c result_real = SCM_FLONUM_VALUE(arg0); SCM_FLONUM_VALUE 1140 src/number.c result_real *= SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1166 src/number.c result_real *= SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1167 src/number.c result_imag *= SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1247 src/number.c result_real = SCM_FLONUM_VALUE(arg0); SCM_FLONUM_VALUE 1256 src/number.c div_real = SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1284 src/number.c div_real = SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1334 src/number.c ry = SCM_FLONUM_VALUE(y); SCM_FLONUM_VALUE 1351 src/number.c ry = SCM_FLONUM_VALUE(y); SCM_FLONUM_VALUE 1357 src/number.c rx = SCM_FLONUM_VALUE(x); SCM_FLONUM_VALUE 1364 src/number.c ry = SCM_FLONUM_VALUE(y); SCM_FLONUM_VALUE 1425 src/number.c ry = SCM_FLONUM_VALUE(y); SCM_FLONUM_VALUE 1458 src/number.c ry = SCM_FLONUM_VALUE(y); SCM_FLONUM_VALUE 1465 src/number.c rx = SCM_FLONUM_VALUE(x); SCM_FLONUM_VALUE 1472 src/number.c ry = SCM_FLONUM_VALUE(y); SCM_FLONUM_VALUE 1617 src/number.c double r = SCM_INT_VALUE(arg0) - SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1629 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_INT_VALUE(arg1); SCM_FLONUM_VALUE 1635 src/number.c double r = SCM_FLONUM_VALUE(arg0) - SCM_FLONUM_VALUE(arg1); SCM_FLONUM_VALUE 1641 src/number.c return Scm_BignumCmp(SCM_BIGNUM(Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(arg0))), SCM_FLONUM_VALUE 1651 src/number.c SCM_BIGNUM(Scm_MakeBignumFromDouble(SCM_FLONUM_VALUE(arg1)))); SCM_FLONUM_VALUE 1734 src/number.c v = SCM_FLONUM_VALUE(num); SCM_FLONUM_VALUE 2132 src/number.c double_print(buf, FLT_BUF, SCM_FLONUM_VALUE(obj), FALSE); SCM_FLONUM_VALUE 690 src/vm.c r = (SCM_FLONUM_VALUE(x_) op SCM_FLONUM_VALUE(y_)); \ SCM_FLONUM_VALUE 702 src/vm.c r = (SCM_FLONUM_VALUE(x_) op Scm_GetDouble(y_)); \ SCM_FLONUM_VALUE 1471 src/vm.c || (SCM_FLONUMP(v0) && SCM_FLONUM_VALUE(v0) == imm)) { SCM_FLONUM_VALUE 2095 src/vm.c VAL0 = SCM_MAKE_BOOL(SCM_FLONUM_VALUE(VAL0) == SCM_FLONUM_VALUE 2096 src/vm.c SCM_FLONUM_VALUE(arg));