Searched refs:SCM_FNUM (Results 1 – 5 of 5) sorted by relevance
34 SCM_FNUM(z) = x; in scm_mkfnum()81 SCM_FNUM(z) = (double) n; in int2fnum()190 if (ISINT(SCM_FNUM(n))) n = scm_flt2num(SCM_FNUM(n)); in scm_compact_number()206 case SOBJ_T_FNUM: r = scm_mkfnum(SCM_FNUM(x) + SCM_FNUM(y)); break; in scm_add2()223 case SOBJ_T_FNUM: r = scm_mkfnum(SCM_FNUM(x) * SCM_FNUM(y)); break; in scm_mul2()252 case SOBJ_T_FNUM: r = scm_mkfnum(SCM_FNUM(x) - SCM_FNUM(y)); break; in scm_sub2()269 case SOBJ_T_FNUM: r = scm_mkfnum(SCM_FNUM(x) / SCM_FNUM(y)); break; in scm_div2()306 if (SCM_FNUM(x) == SCM_FNUM(y)) return(0); in scm_cmpnum()307 return((SCM_FNUM(x) > SCM_FNUM(y)) ? 1 : -1); in scm_cmpnum()386 return( SCM_FNUM(x) < 0.0? scm_mkfnum( -(SCM_FNUM(x)) ) : x); in scm_abs()[all …]
41 return(SCM_MKBOOL(SCM_FNUM(x) == SCM_FNUM(y))); in scm_eqv()
414 #define SCM_FNUM(x) SCM_VALUE(x,fnum,value) macro598 ((SCM_OBJREF(x)->type == SOBJ_T_FNUM) ? SCM_FNUM(x) : 0))
17 double x = SCM_FNUM(TOS);
529 case SOBJ_T_FNUM: port_putd(port, SCM_FNUM(obj)); break; in scm_write_obj()