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 D | number.c | 1357 } 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 D | lib_core.c | 1205 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 D | instructions.scm | 251 (cond ((and exact (Sg_ZeroP (AC vm)))
|
H A D | vminsn.c | 370 if ((exact)&&(Sg_ZeroP(AC(vm)))){ in CASE()
|
H A D | lib_core.stub | 124 (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 D | number.h | 193 SG_EXTERN int Sg_ZeroP(SgObject obj);
|