Home
last modified time | relevance | path

Searched refs:sexp_ratiop (Results 1 – 6 of 6) sorted by relevance

/dports/lang/chibi-scheme/chibi-scheme-0.10/
H A Deval.c1501 else if (sexp_ratiop(z)) d = sexp_ratio_to_double(ctx, z);
1562 if (sexp_ratiop(q)) return f(ctx, q); in define_math_op()
1691 if (sexp_ratiop(z)) { in sexp_sqrt()
1756 else if (sexp_ratiop(x)) { in sexp_expt_op()
1771 else if (sexp_ratiop(e)) in sexp_expt_op()
1799 sexp_assert_type(ctx, sexp_ratiop, SEXP_RATIO, rat); in sexp_ratio_numerator_op()
1803 sexp_assert_type(ctx, sexp_ratiop, SEXP_RATIO, rat); in sexp_ratio_denominator_op()
1833 else if (sexp_ratiop(i)) in sexp_exact_to_inexact()
H A Dbignum.c961 else if (sexp_ratiop(x)) in sexp_to_double()
1056 } else if (sexp_ratiop(x)) { in sexp_to_complex()
1456 if (sexp_ratiop(r)) { in sexp_sub()
1664 if (!sexp_ratiop(a)) in sexp_div()
1684 if (sexp_ratiop(a)) in sexp_div()
H A Dsexp.c3340 else if (sexp_ratiop(res)) in sexp_read_raw()
3623 if (sexp_ratiop(res)) { in sexp_read_raw()
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/95/
H A Dqsort.c73 (sexp_flonump(x) || sexp_bignump(x) || sexp_ratiop(x))
/dports/lang/chibi-scheme/chibi-scheme-0.10/include/chibi/
H A Dsexp.h840 #define sexp_ratiop(x) (sexp_check_tag(x, SEXP_RATIO)) macro
842 #define sexp_ratiop(x) 0 macro
1013 #define sexp_exactp(x) (sexp_exact_integerp(x) || sexp_ratiop(x))
1021 #define sexp_realp(x) (sexp_exact_integerp(x) || sexp_flonump(x) || sexp_ratiop(x))
1236 #define sexp_ratio_numerator(q) (sexp_pred_field(q, ratio, sexp_ratiop, numerator))
1237 #define sexp_ratio_denominator(q) (sexp_pred_field(q, ratio, sexp_ratiop, denominator))
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/18/
H A Dthreads.c182 } else if (sexp_ratiop(timeout)) { in sexp_insert_timed()