mpl 4922 src/extlib.c SCM_RESULT = (mod->mpl); mpl 1816 src/gauche.h ScmObj mpl; /* module precedence list */ mpl 117 src/module.c m->mpl = Scm_Cons(SCM_OBJ(m), defaultMpl); mpl 215 src/module.c SCM_FOR_EACH(mp, SCM_MODULE(SCM_CAR(p))->mpl) { mpl 247 src/module.c SCM_ASSERT(SCM_PAIRP(module->mpl)); mpl 248 src/module.c SCM_FOR_EACH(mp, SCM_CDR(module->mpl)) { mpl 445 src/module.c ScmObj mpl, seqh = SCM_NIL, seqt = SCM_NIL, sp; mpl 452 src/module.c SCM_APPEND1(seqh, seqt, SCM_MODULE(SCM_CAR(sp))->mpl); mpl 456 src/module.c mpl = Scm_MonotonicMerge(SCM_OBJ(module), seqh); mpl 457 src/module.c if (SCM_FALSEP(mpl)) { mpl 460 src/module.c module->mpl = mpl; mpl 461 src/module.c return mpl; mpl 591 src/module.c #define INIT_MOD(mod, mname, mpl) \ mpl 596 src/module.c mod.parents = (SCM_NULLP(mpl)? SCM_NIL : SCM_LIST1(SCM_CAR(mpl))); \ mpl 597 src/module.c mpl = mod.mpl = Scm_Cons(SCM_OBJ(&mod), mpl); \ mpl 602 src/module.c ScmObj mpl = SCM_NIL; mpl 608 src/module.c INIT_MOD(nullModule, SCM_SYM_NULL, mpl); mpl 609 src/module.c INIT_MOD(schemeModule, SCM_SYM_SCHEME, mpl); mpl 610 src/module.c INIT_MOD(gaucheModule, SCM_SYM_GAUCHE, mpl); mpl 611 src/module.c INIT_MOD(gfModule, SCM_SYM_GAUCHE_GF, mpl); mpl 612 src/module.c INIT_MOD(userModule, SCM_SYM_USER, mpl); mpl 614 src/module.c mpl = SCM_CDR(mpl); /* default mpl doesn't include user module */ mpl 615 src/module.c defaultParents = SCM_LIST1(SCM_CAR(mpl)); mpl 616 src/module.c defaultMpl = mpl; mpl 620 src/module.c mpl = defaultMpl; mpl 621 src/module.c INIT_MOD(internalModule, SCM_SYM_GAUCHE_INTERNAL, mpl);