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;