Searched refs:SG_NUMBERP (Results 1 – 14 of 14) sorted by relevance
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | lib_core.c | 687 SG_RESULT=(SG_NUMBERP(o)); in core_numberP() 983 if (!SG_NUMBERP(z_scm)) in core_inexact() 1006 if (!SG_NUMBERP(z_scm)) in core_exact() 1198 if (!SG_NUMBERP(n_scm)) in core_zeroP() 1221 if (!SG_NUMBERP(x_scm)) in core_positiveP() 1244 if (!SG_NUMBERP(x_scm)) in core_negativeP() 1267 if (!SG_NUMBERP(x_scm)) in core_oddP() 1290 if (!SG_NUMBERP(x_scm)) in core_evenP() 1315 if (!SG_NUMBERP(x_scm)) in core_finiteP() 1338 if (!SG_NUMBERP(x_scm)) in core_infiniteP() [all …]
|
H A D | compare.c | 315 if (SG_NUMBERP(x) && SG_NUMBERP(y)) in Sg_Compare() 369 if (SG_NUMBERP(x)) { in eqv_internal() 370 if (SG_NUMBERP(y)) { in eqv_internal() 460 if (SG_NUMBERP(x)) { 461 if (SG_NUMBERP(y)) {
|
H A D | lib_flonums.c | 862 if (!SG_NUMBERP(n_scm)) in sagittarius_flonums_real_TOflonum() 1748 if (!SG_UNBOUNDP(fl1_scm) && !SG_NUMBERP(fl1_scm)) in sagittarius_flonums_fl_2b() 1757 if (!SG_UNBOUNDP(fl2_scm) && !SG_NUMBERP(fl2_scm)) in sagittarius_flonums_fl_2b() 1801 if (!SG_UNBOUNDP(fl1_scm) && !SG_NUMBERP(fl1_scm)) in sagittarius_flonums_fl_2a() 1810 if (!SG_UNBOUNDP(fl2_scm) && !SG_NUMBERP(fl2_scm)) in sagittarius_flonums_fl_2a() 1859 if (!SG_UNBOUNDP(fl2_scm) && !SG_NUMBERP(fl2_scm)) in sagittarius_flonums_fl_() 1905 if (!SG_UNBOUNDP(fl2_scm) && !SG_NUMBERP(fl2_scm)) in sagittarius_flonums_fl_2f() 2028 if (!SG_NUMBERP(fl_scm)) in sagittarius_flonums_flnumerator() 2056 if (!SG_NUMBERP(fl_scm)) in sagittarius_flonums_fldenominator() 2153 if (!SG_NUMBERP(fl_scm)) in sagittarius_flonums_flround()
|
H A D | hashtable.c | 102 if (SG_NUMBERP(obj)) { in Sg_EqvHash() 219 } else if (SG_NUMBERP(obj)) { in equal_hash_rec()
|
H A D | writer.c | 851 if (SG_NUMBERP(obj)) { in write_ss_rec() 1019 if (!SG_PTRP(obj) || SG_KEYWORDP(obj) || SG_NUMBERP(obj) in write_walk()
|
H A D | cache.c | 249 SG_NUMBERP(obj) || \ 859 SG_NUMBERP(o) || SG_BVECTORP(o))) { in write_object_cache() 876 } else if (SG_NUMBERP(o)) { in write_object_cache()
|
H A D | number.c | 1300 if (!SG_NUMBERP(x)) wte(SG_INTERN("numerator"), "number", x); in Sg_Numerator() 1319 if (!SG_NUMBERP(x)) wte(SG_INTERN("denominator"), "number", x); in Sg_Denominator() 1438 } else if (!SG_NUMBERP(obj)) { in Sg_InfiniteP() 1453 } else if (!SG_NUMBERP(obj)) { in Sg_NanP()
|
H A D | lib_core.stub | 62 (define-c-proc number? (o) ::<boolean> :constant SG_NUMBERP) 76 (define-c-proc complex? (o) ::<boolean> :constant SG_NUMBERP) 142 `(unless (SG_NUMBERP ,v) 148 ((not (SG_NUMBERP (SG_CAR rest))) 160 ((not (SG_NUMBERP (SG_CAR rest)))
|
H A D | lib_sagittarius.c | 2012 if ((!(SG_NUMBERP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen12135.d12286[23],SG_MAKE_STRIN… in sagittarius__2b_2e() 2038 if ((!(SG_NUMBERP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen12135.d12286[25],SG_MAKE_STRIN… in sagittarius__2a_2e() 2058 if (!SG_NUMBERP(arg1_scm)) in sagittarius___2e() 2073 if ((!(SG_NUMBERP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen12135.d12286[27],SG_MAKE_STRIN… in sagittarius___2e() 2093 if (!SG_NUMBERP(arg1_scm)) in sagittarius__2f_2e() 2108 if ((!(SG_NUMBERP(x)))){{{Sg_WrongTypeOfArgumentViolation(sg__rc_cgen12135.d12286[29],SG_MAKE_STRIN… in sagittarius__2f_2e()
|
H A D | reader.c | 103 if (SG_NUMBERP(ref->index)) { in sref_print()
|
H A D | bignum.c | 276 if (!SG_NUMBERP(mantissa)) { in Sg_MakeBignumFromDouble()
|
H A D | lib_sagittarius.stub | 155 `(unless (SG_NUMBERP ,v)
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/ |
H A D | sagittarius-ffi.c | 1411 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1422 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1430 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1441 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1445 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1449 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1456 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result() 1463 if (!SG_NUMBERP(ret)) goto ret0; in set_callback_result()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | number.h | 132 #define SG_NUMBERP(obj) (SG_REALP(obj) || SG_COMPLEXP(obj)) macro
|