trunc 608 src/macro.c ScmObj trunc; trunc 616 src/macro.c trunc = rec->root; trunc 617 src/macro.c for (i=1; i<level-1; i++, trunc = SCM_CAR(trunc)) { trunc 618 src/macro.c SCM_FOR_EACH(trunc, trunc) { trunc 619 src/macro.c if (SCM_NULLP(SCM_CDR(trunc))) break; trunc 621 src/macro.c if (SCM_NULLP(SCM_CAR(trunc))) { trunc 622 src/macro.c for (i++; i<level-1; i++, trunc = SCM_CAR(trunc)) { trunc 623 src/macro.c SCM_SET_CAR(trunc, SPROUT); trunc 626 src/macro.c SCM_SET_CAR(trunc, rec->sprout); trunc 630 src/macro.c SCM_FOR_EACH(trunc, trunc) { trunc 631 src/macro.c if (SCM_NULLP(SCM_CDR(trunc))) { trunc 633 src/macro.c SCM_SET_CDR(trunc, rec->sprout); trunc 1740 src/number.c case SCM_ROUND_TRUNC: r = trunc(v); break;