Searched refs:SCM_FLONUMP (Results 1 – 15 of 15) sorted by relevance
1227 if (SCM_FLONUMP(obj)) { in Scm_GetInteger64Clamp()1269 if (SCM_FLONUMP(obj)) { in Scm_GetIntegerU64Clamp()1484 if (SCM_FLONUMP(obj)) { in Scm_IntegerP()1520 if (SCM_FLONUMP(obj)) { in Scm_InfiniteP()1535 if (SCM_FLONUMP(obj)) { in Scm_NanP()1599 if (SCM_FLONUMP(obj)) { in DEFINE_DUAL_API1()1702 if (SCM_FLONUMP(obj)) { in DEFINE_DUAL_API1()1936 if (SCM_FLONUMP(arg0)) { in DEFINE_DUAL_API2()2687 if (SCM_FLONUMP(x) || SCM_FLONUMP(y)) { in Scm_Gcd()3185 if (SCM_FLONUMP(num)) { in scm_round()[all …]
2000 (SCM_FLONUMP(VAL0))&&(SCM_FLONUMP(arg))){ in CASE()2036 (SCM_FLONUMP(arg))&&(SCM_FLONUMP(VAL0))){ in CASE()2048 (SCM_FLONUMP(arg))&&(SCM_FLONUMP(VAL0))){ in CASE()2096 (SCM_FLONUMP(arg))&&(SCM_FLONUMP(VAL0))){ in CASE()2143 if ((SCM_FLONUMP(arg))&&(SCM_FLONUMP(VAL0))){ in CASE()2154 SCM_FLONUMP(arg)){ in CASE()2165 SCM_FLONUMP(arg)){ in CASE()2176 SCM_FLONUMP(arg)){ in CASE()2187 SCM_FLONUMP(arg)){ in CASE()2198 SCM_FLONUMP(arg)){ in CASE()[all …]
54 if (SCM_FLONUMP(x)) { in Scm_EqvP()55 if (SCM_FLONUMP(y)) { in Scm_EqvP()60 } else if (SCM_FLONUMP(y)) { in Scm_EqvP()
290 [(and (SCM_FLONUMP ,x) (SCM_FLONUMP ,y))1213 [(and (SCM_FLONUMP VAL0) (SCM_FLONUMP arg))1227 [(and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0))1236 [(and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0))1247 (if (SCM_FLONUMP arg)1255 (if (SCM_FLONUMP VAL0)1267 (if (or (and (SCM_FLONUMP arg) (SCM_REALP VAL0))1268 (and (SCM_FLONUMP VAL0) (SCM_REALP arg)))1302 (if (and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0))1310 [(SCM_FLONUMP arg)[all …]
79 (define-cproc flonum? (x) ::<boolean> :fast-flonum :constant SCM_FLONUMP)85 (return (and (SCM_FLONUMP x) ;only flonums have -0.0264 (cond [(SCM_FLONUMP num)474 (cond [(and (SCM_FLONUMP x) (>= (Scm_Sign x) 0))855 [(SCM_FLONUMP min)860 [(SCM_FLONUMP max)
194 } else if (SCM_FLONUMP(obj)) { in number_hash()1430 } else if (SCM_FLONUMP(obj)) { in legacy_number_hash()
1010 SCM_ASSERT(SCM_FLONUMP(val)); in vprintf_pass2()
746 } else if (SCM_FLONUMP(y_) && SCM_FLONUMP(x_)) { \
374 #define SCM_FLONUMP(obj) (SCM_TAG2(obj) == 2) macro
4163 {SCM_RESULT=(SCM_FLONUMP(x));goto SCM_STUB_RETURN;} in libnumflonumP()4257 {SCM_RESULT=(((SCM_FLONUMP(x))&&( in libnum_zeroP()4985 if (SCM_FLONUMP(num)){ in libnumdecode_float()6015 if ((SCM_FLONUMP(x))&&((Scm_Sign(x))>=(0))){ in libnum_25sqrt_fast_path()6533 SCM_FLONUMP(min)){ in libnumclamp()6538 SCM_FLONUMP(max)){ in libnumclamp()
2206 } else if (SCM_FLONUMP(timeout)) { in select_timeval()
494 if (SCM_FLONUMP(obj)) return SCM_CLASS_REAL; in Scm_ClassOf()
462 …branch* (not (or (and (SCM_INTP v0) (== (SCM_INT_VALUE v0) imm)) (and (SCM_FLONUMP v0) (== (SCM_FL…1742 …INTP VAL0) (SCM_INTP arg)) ($result:b (== VAL0 arg))) ((and (SCM_FLONUMP VAL0) (SCM_FLONUMP arg)) …1792 …esult:n (+ (SCM_INT_VALUE arg) (SCM_INT_VALUE VAL0)))) ((and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0))…1802 …esult:n (- (SCM_INT_VALUE arg) (SCM_INT_VALUE VAL0)))) ((and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0))…1812 …SCM_FLONUMP arg) (cond ((and (== (SCM_MAKE_INT 0) VAL0) (not (SCM_IS_INF (SCM_FLONUM_VALUE arg))) …1822 …:body '($w/argp arg (if (or (and (SCM_FLONUMP arg) (SCM_REALP VAL0)) (and (SCM_FLONUMP VAL0) (SCM_…1842 …:body '($w/argr v (cond ((SCM_INTP v) ($result:n (- (SCM_INT_VALUE v)))) ((SCM_FLONUMP v) ($result…1882 …:body '($w/argp arg (if (and (SCM_FLONUMP arg) (SCM_FLONUMP VAL0)) ($result:f (/ (Scm_GetDouble ar…1892 …r arg (cond ((SCM_INTP arg) ($result:n (+ imm (SCM_INT_VALUE arg)))) ((SCM_FLONUMP arg) ($result:f…2102 …r arg (cond ((SCM_INTP arg) ($result:n (- imm (SCM_INT_VALUE arg)))) ((SCM_FLONUMP arg) ($result:f…
65 #define SCM_REALP(obj) (SCM_RATIONALP(obj)||SCM_FLONUMP(obj))68 #define SCM_INEXACTP(obj) (SCM_FLONUMP(obj)||SCM_COMPNUMP(obj))
1539 @deftypefn {Macro} int SCM_FLONUMP (ScmObj @var{obj})