sr 6692 ext/uvector/uvector.c ScmObj sr;
sr 6693 ext/uvector/uvector.c sr = Scm_MakeInteger(r);
sr 6694 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 6745 ext/uvector/uvector.c ScmObj sr;
sr 6746 ext/uvector/uvector.c sr = Scm_MakeIntegerU(r);
sr 6747 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 6798 ext/uvector/uvector.c ScmObj sr;
sr 6799 ext/uvector/uvector.c sr = Scm_MakeInteger(r);
sr 6800 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 6851 ext/uvector/uvector.c ScmObj sr;
sr 6852 ext/uvector/uvector.c sr = Scm_MakeIntegerU(r);
sr 6853 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 6904 ext/uvector/uvector.c ScmObj sr;
sr 6905 ext/uvector/uvector.c sr = Scm_MakeInteger(r);
sr 6906 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 6957 ext/uvector/uvector.c ScmObj sr;
sr 6958 ext/uvector/uvector.c sr = Scm_MakeIntegerU(r);
sr 6959 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 7010 ext/uvector/uvector.c ScmObj sr;
sr 7011 ext/uvector/uvector.c sr = Scm_MakeInteger64(r);
sr 7012 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 7063 ext/uvector/uvector.c ScmObj sr;
sr 7064 ext/uvector/uvector.c sr = Scm_MakeIntegerU64(r);
sr 7065 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 7116 ext/uvector/uvector.c ScmObj sr;
sr 7117 ext/uvector/uvector.c sr = Scm_MakeFlonum(r);
sr 7118 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 7169 ext/uvector/uvector.c ScmObj sr;
sr 7170 ext/uvector/uvector.c sr = Scm_MakeFlonum(r);
sr 7171 ext/uvector/uvector.c rr = Scm_Add2(rr, sr);
sr 472 src/macro.c ScmSyntaxRules *sr;
sr 484 src/macro.c sr = make_syntax_rules(numRules);
sr 485 src/macro.c sr->name = name;
sr 486 src/macro.c sr->numRules = numRules;
sr 487 src/macro.c sr->maxNumPvars = 0;
sr 506 src/macro.c sr->rules[i].pattern = SCM_OBJ(pat->pattern);
sr 507 src/macro.c sr->rules[i].template = SCM_OBJ(tmpl->pattern);
sr 508 src/macro.c sr->rules[i].numPvars = ctx.pvcnt;
sr 509 src/macro.c sr->rules[i].maxLevel = ctx.maxlev;
sr 510 src/macro.c if (ctx.pvcnt > sr->maxNumPvars) sr->maxNumPvars = ctx.pvcnt;
sr 512 src/macro.c return sr;
sr 871 src/macro.c static ScmObj synrule_expand(ScmObj form, ScmObj env, ScmSyntaxRules *sr)
sr 873 src/macro.c MatchVar *mvec = alloc_matchvec(sr->maxNumPvars);
sr 880 src/macro.c for (i=0; i<sr->numRules; i++) {
sr 882 src/macro.c Scm_Printf(SCM_CUROUT, "pattern #%d: %S\n", i, sr->rules[i].pattern);
sr 884 src/macro.c init_matchvec(mvec, sr->rules[i].numPvars);
sr 885 src/macro.c if (match_synrule(SCM_CDR(form), sr->rules[i].pattern, env, mvec)) {
sr 888 src/macro.c print_matchvec(mvec, sr->rules[i].numPvars, SCM_CUROUT);
sr 890 src/macro.c expanded = realize_template(&sr->rules[i], mvec);
sr 904 src/macro.c ScmSyntaxRules *sr = (ScmSyntaxRules *)data;
sr 905 src/macro.c return synrule_expand(form, env, sr);
sr 912 src/macro.c ScmSyntaxRules *sr;
sr 919 src/macro.c sr = compile_rules(name, literals, rules, SCM_MODULE(mod), env);
sr 920 src/macro.c return Scm_MakeMacro(SCM_SYMBOL(name), synrule_transform, (void*)sr);