mvec 555 src/macro.c static void init_matchvec(MatchVar *mvec, int numPvars) mvec 559 src/macro.c mvec[i].branch = mvec[i].sprout = mvec[i].root = SCM_NIL; mvec 565 src/macro.c static ScmObj get_pvref_value(ScmObj pvref, MatchVar *mvec, mvec 570 src/macro.c ScmObj tree = mvec[count].root; mvec 590 src/macro.c static void print_matchvec(MatchVar *mvec, int numPvars, ScmPort *port) mvec 595 src/macro.c mvec[i].branch, mvec[i].sprout, mvec[i].root); mvec 601 src/macro.c MatchVar *mvec); mvec 639 src/macro.c static void enter_subpattern(ScmSyntaxPattern *subpat, MatchVar *mvec) mvec 645 src/macro.c grow_branch(mvec+count, subpat->level); mvec 649 src/macro.c static void exit_subpattern(ScmSyntaxPattern *subpat, MatchVar *mvec) mvec 657 src/macro.c mvec[count].root = Scm_ReverseX(mvec[count].branch); mvec 659 src/macro.c SCM_SET_CAR(mvec[count].sprout, mvec 660 src/macro.c Scm_ReverseX(mvec[count].branch)); mvec 661 src/macro.c mvec[count].branch = SCM_NIL; mvec 668 src/macro.c static inline void match_insert(ScmObj pvref, ScmObj matched, MatchVar *mvec) mvec 672 src/macro.c mvec[count].root = matched; mvec 674 src/macro.c mvec[count].branch = Scm_Cons(matched, mvec[count].branch); mvec 694 src/macro.c ScmObj env, MatchVar *mvec) mvec 696 src/macro.c enter_subpattern(pat, mvec); mvec 698 src/macro.c if (!match_synrule(SCM_CAR(form), pat->pattern, env, mvec)) mvec 703 src/macro.c exit_subpattern(pat, mvec); mvec 711 src/macro.c MatchVar *mvec) mvec 714 src/macro.c match_insert(pattern, form, mvec); mvec 721 src/macro.c return match_subpattern(form, SCM_SYNTAX_PATTERN(pattern), env, mvec); mvec 728 src/macro.c env, mvec); mvec 732 src/macro.c if (!match_synrule(SCM_CAR(form), elt, env, mvec)) mvec 739 src/macro.c return match_synrule(form, pattern, env, mvec); mvec 754 src/macro.c env, mvec)) mvec 763 src/macro.c return match_subpattern(h, SCM_SYNTAX_PATTERN(pat), env, mvec); mvec 778 src/macro.c MatchVar *mvec, mvec 789 src/macro.c r = realize_template_rec(e, mvec, level, indices, idlist, exlev); mvec 793 src/macro.c r = realize_template_rec(e, mvec, level, indices, idlist, exlev); mvec 800 src/macro.c r = realize_template_rec(template, mvec, level, indices, idlist, exlev); mvec 808 src/macro.c return get_pvref_value(template, mvec, indices, exlev); mvec 815 src/macro.c r = realize_template_rec(pat->pattern, mvec, level+1, indices, idlist, exlev); mvec 828 src/macro.c r = realize_template_rec(*pe, mvec, level, indices, idlist, exlev); mvec 832 src/macro.c r = realize_template_rec(*pe, mvec, level, indices, idlist, exlev); mvec 859 src/macro.c MatchVar *mvec) mvec 868 src/macro.c return realize_template_rec(branch->template, mvec, 0, indices, &idlist, &exlev); mvec 873 src/macro.c MatchVar *mvec = alloc_matchvec(sr->maxNumPvars); mvec 884 src/macro.c init_matchvec(mvec, sr->rules[i].numPvars); mvec 885 src/macro.c if (match_synrule(SCM_CDR(form), sr->rules[i].pattern, env, mvec)) { mvec 888 src/macro.c print_matchvec(mvec, sr->rules[i].numPvars, SCM_CUROUT); mvec 890 src/macro.c expanded = realize_template(&sr->rules[i], mvec);