Home
last modified time | relevance | path

Searched refs:Sg_ZeroP (Results 1 – 6 of 6) sorted by last modified time

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dnumber.c1357 } else if (Sg_ZeroP(x)) return x; in Sg_Rationalize()
1374 int Sg_ZeroP(SgObject obj) in Sg_ZeroP() function
1388 return Sg_ZeroP(c->real) && Sg_ZeroP(c->imag); in Sg_ZeroP()
1475 return Sg_ZeroP(SG_COMPLEX(n)->imag); in Sg_RealValuedP()
2403 if (Sg_ZeroP(imag)) { \ in Sg_Quotient()
2523 if (Sg_ZeroP(imag)) { \ in Sg_Modulo()
2731 if (Sg_ZeroP(y)) { in Sg_Expt()
2921 if (Sg_ZeroP(SG_COMPLEX(x)->imag)) { in Sg_NumEq()
3074 if (Sg_ZeroP(SG_COMPLEX(x)->imag)) { in Sg_NumCmp()
3528 if (Sg_ZeroP(y)) { in Sg_IntegerDiv()
[all …]
H A Dlib_core.c1205 SG_RESULT=(Sg_ZeroP(n)); in core_zeroP()
1553 if ((exact)&&(Sg_ZeroP(v))){{ in core__2f()
1769 …on(sg__rc_cgen9166.d9486[55],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTyp… in core_div()
1804 …on(sg__rc_cgen9166.d9486[57],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTyp… in core_mod()
1839 …on(sg__rc_cgen9166.d9486[59],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTyp… in core_div0()
1874 …on(sg__rc_cgen9166.d9486[61],SG_MAKE_STRING("non nan"),x,SG_NIL);}}}if (Sg_ZeroP(y)){{{Sg_WrongTyp… in core_mod0()
H A Dinstructions.scm251 (cond ((and exact (Sg_ZeroP (AC vm)))
H A Dvminsn.c370 if ((exact)&&(Sg_ZeroP(AC(vm)))){ in CASE()
H A Dlib_core.stub124 (define-c-proc zero? (n::<number>) ::<boolean> :constant Sg_ZeroP)
188 (when (and exact (Sg_ZeroP v))
231 `(when (Sg_ZeroP ,n)
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/
H A Dnumber.h193 SG_EXTERN int Sg_ZeroP(SgObject obj);