Searched refs:Sg_ExactP (Results 1 – 8 of 8) sorted by relevance
383 if (Sg_ExactP(x) && Sg_ExactP(y)) { in eqv_internal()462 if ((Sg_ExactP(x) && Sg_ExactP(y))
987 if(!Sg_ExactP(numerator)) { in Sg_MakeRational()994 if(!Sg_ExactP(denominator)) { in Sg_MakeRational()1642 int Sg_ExactP(SgObject obj) in Sg_ExactP() function1648 return Sg_ExactP(c->real) && Sg_ExactP(c->imag); in Sg_ExactP()2666 if (Sg_ExactP(y)) { in expt_body()2669 if (Sg_ExactP(x)) return SG_MAKE_INT(1); in expt_body()2677 if (!Sg_ExactP(x)) { in expt_body()2742 if (Sg_ExactP(y)) return SG_MAKE_INT(0); in Sg_Expt()2748 else if (Sg_ExactP(x) && SG_BIGNUMP(y)) { in Sg_Expt()3188 if (Sg_ExactP(obj)) { in Sg_Sqrt()[all …]
1149 ASSERT(Sg_ExactP(value)); in vprintf_proc()1204 ASSERT(Sg_ExactP(value)); in vprintf_proc()1239 ASSERT(Sg_ExactP(value)); in vprintf_proc()1283 ASSERT(Sg_ExactP(value)); in vprintf_proc()
250 (exact::int (and (Sg_ExactP obj) (Sg_ExactP (AC vm)))))
369 (Sg_ExactP(obj))&&(Sg_ExactP(AC(vm))); in CASE()
83 (define-c-proc exact? (o) ::<boolean> :constant Sg_ExactP)182 (let ((exact::int (Sg_ExactP arg1)))187 (when exact (set! exact (Sg_ExactP v)))2458 (unless (Sg_ExactP ei)
947 SG_RESULT=(Sg_ExactP(o)); in core_exactP()1548 {int exact=Sg_ExactP(arg1); in core__2f()1552 if (exact){{exact=(Sg_ExactP(v));}} in core__2f()12013 if ((!(Sg_ExactP(ei)))){{ in core_bitwise_not()
200 SG_EXTERN int Sg_ExactP(SgObject obj);