pat 289 src/macro.c ScmSyntaxPattern *pat, pat 292 src/macro.c ScmObj pvref = SCM_MAKE_PVREF(pat->level, ctx->pvcnt); pat 299 src/macro.c pat->vars = Scm_Cons(pvref, pat->vars); pat 306 src/macro.c ScmSyntaxPattern *pat, pat 312 src/macro.c if (PVREF_LEVEL(pvref) > pat->level) { pat 471 src/macro.c ScmSyntaxPattern *pat, *tmpl; pat 492 src/macro.c pat = make_syntax_pattern(0, FALSE); pat 501 src/macro.c pat->pattern = compile_rule1(SCM_CDR(ctx.form), pat, &ctx, TRUE); pat 506 src/macro.c sr->rules[i].pattern = SCM_OBJ(pat->pattern); pat 693 src/macro.c static inline int match_subpattern(ScmObj form, ScmSyntaxPattern *pat, pat 696 src/macro.c enter_subpattern(pat, mvec); pat 698 src/macro.c if (!match_synrule(SCM_CAR(form), pat->pattern, env, mvec)) pat 703 src/macro.c exit_subpattern(pat, mvec); pat 759 src/macro.c ScmObj pat = SCM_VECTOR_ELEMENT(pattern, plen-1); pat 763 src/macro.c return match_subpattern(h, SCM_SYNTAX_PATTERN(pat), env, mvec); pat 811 src/macro.c ScmSyntaxPattern *pat = SCM_SYNTAX_PATTERN(template); pat 815 src/macro.c r = realize_template_rec(pat->pattern, mvec, level+1, indices, idlist, exlev); pat 816 src/macro.c if (SCM_UNBOUNDP(r)) return (*exlev < pat->level)? r : h;