Home
last modified time | relevance | path

Searched refs:SG_NUMBERP (Results 1 – 14 of 14) sorted by relevance

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dlib_core.c687 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 Dcompare.c315 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 Dlib_flonums.c862 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 Dhashtable.c102 if (SG_NUMBERP(obj)) { in Sg_EqvHash()
219 } else if (SG_NUMBERP(obj)) { in equal_hash_rec()
H A Dwriter.c851 if (SG_NUMBERP(obj)) { in write_ss_rec()
1019 if (!SG_PTRP(obj) || SG_KEYWORDP(obj) || SG_NUMBERP(obj) in write_walk()
H A Dcache.c249 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 Dnumber.c1300 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 Dlib_core.stub62 (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 Dlib_sagittarius.c2012 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 Dreader.c103 if (SG_NUMBERP(ref->index)) { in sref_print()
H A Dbignum.c276 if (!SG_NUMBERP(mantissa)) { in Sg_MakeBignumFromDouble()
H A Dlib_sagittarius.stub155 `(unless (SG_NUMBERP ,v)
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/ffi/
H A Dsagittarius-ffi.c1411 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 Dnumber.h132 #define SG_NUMBERP(obj) (SG_REALP(obj) || SG_COMPLEXP(obj)) macro