20 nvalue(struct cell * p)
23 num num_intdiv(num a, num b)
27 ret.value.ivalue = a.value.ivalue / b.value.ivalue;
39 x = ((sc->args)->_object._cons._car);
40 for (; x != sc->NIL; x = ((x)->_object._cons._cdr)) {
41 if (ivalue(((x)->_object._cons._car)) != 0)
43 nvalue(((x)->_object._cons.
51 op_code_info dispatch_table[] = {
54 void scheme_init_custom_alloc()
58 for (i = 0; i < n; i++) {
59 if (dispatch_table[i].name != 0) {