Searched refs:SG_CLASS_REAL (Results 1 – 3 of 3) sorted by relevance
45 #define SG_CLASS_REAL (&Sg_RealClass) macro111 #define SG_FLONUMP(obj) (SG_IFLONUMP(obj) || SG_XTYPEP(obj, SG_CLASS_REAL))124 #define SG_FLONUMP(obj) SG_XTYPEP(obj, SG_CLASS_REAL)
1366 if (SG_IFLONUMP(obj)) return SG_CLASS_REAL; in Sg_ClassOf()1370 if (SG_FLONUMP(obj)) return SG_CLASS_REAL; in Sg_ClassOf()3063 CINIT(SG_CLASS_REAL, "<real>"); in Sg__InitClos()
108 SG_CLASS_REAL,1173 SG_SET_CLASS(f, SG_CLASS_REAL); in make_flonum()