env 90 gc/include/gc_mark.h (((((env) << GC_LOG_MAX_MARK_PROCS) \
env 137 gc/os_dep.c # define SETJMP(env) sigsetjmp(env, 1)
env 138 gc/os_dep.c # define LONGJMP(env, val) siglongjmp(env, val)
env 141 gc/os_dep.c # define SETJMP(env) setjmp(env)
env 142 gc/os_dep.c # define LONGJMP(env, val) longjmp(env, val)
env 233 gc/tests/test.c if (1 == env) {
env 407 gc/typd_mlc.c register word bm = GC_ext_descriptors[env].ed_bitmap;
env 423 gc/typd_mlc.c if (GC_ext_descriptors[env].ed_continued) {
env 434 gc/typd_mlc.c GC_MAKE_PROC(GC_typed_mark_proc_index, env+1);
env 2201 src/class.c m->env = SCM_CLOSURE(body)->env;
env 66 src/compaux.c return Scm_Apply(SCM_GLOC_GET(compile_gloc), SCM_LIST2(program, env));
env 72 src/compaux.c SCM_LIST2(program, env));
env 110 src/compaux.c s->env = env;
env 118 src/compaux.c return SCM_SYNTACTIC_CLOSURE(obj)->env;
env 160 src/compaux.c SCM_FOR_EACH(frame, env) {
env 175 src/compaux.c id->env = (env == SCM_NIL)? SCM_NIL : get_binding_frame(SCM_OBJ(name), env);
env 182 src/compaux.c ScmObj bf = get_binding_frame(SCM_OBJ(sym), env);
env 183 src/compaux.c return (bf == id->env);
env 192 src/compaux.c id->env = orig->env;
env 224 src/compaux.c return SCM_IDENTIFIER(obj)->env;
env 232 src/compaux.c SCM_IDENTIFIER(obj)->env = val;
env 5884 src/extlib.c SCM_RESULT = (SCM_CLOSUREP(obj) && SCM_CLOSURE(obj)->env == NULL);
env 2267 src/gauche.h ScmEnvFrame *env; /* environment */
env 2349 src/gauche.h ScmEnvFrame *env; /* environment (for Scheme created method) */
env 89 src/gauche/vm.h #define ENV_FP(env) (((ScmObj*)(env))-((env)->size))
env 90 src/gauche/vm.h #define ENV_DATA(env, num) (*(((ScmObj*)(env))-(num)-1))
env 101 src/gauche/vm.h ScmEnvFrame *env; /* saved environment */
env 121 src/gauche/vm.h ScmObj env; /* compile-time environment */
env 152 src/gauche/vm.h ScmObj env;
env 385 src/gauche/vm.h ScmEnvFrame *env; /* Current environment. */
env 169 src/intlib.c ScmObj env;
env 176 src/intlib.c env = (env_scm);
env 184 src/intlib.c SCM_RESULT = Scm_MakeSyntacticClosure(env, literals, expr);
env 200 src/intlib.c ScmObj env;
env 210 src/intlib.c env = (env_scm);
env 214 src/intlib.c SCM_RESULT = Scm_MakeIdentifier(name, mod, env);
env 522 src/intlib.c ScmObj env;
env 533 src/intlib.c env = (env_scm);
env 537 src/intlib.c SCM_RESULT = Scm_CompileSyntaxRules(name, literals, rules, mod, env);
env 553 src/intlib.c ScmObj env;
env 561 src/intlib.c env = (env_scm);
env 565 src/intlib.c SCM_RESULT = Scm_CallMacroExpander(mac, expr, env);
env 643 src/intlib.c ScmObj env;
env 650 src/intlib.c env = (env_scm);
env 657 src/intlib.c SCM_RESULT = Scm_VMMacroExpand(form, env, once);
env 1432 src/intlib.c if (name_identifier && SCM_IDENTIFIER(name)->env == fp) {
env 178 src/load.c if (SCM_MODULEP(env)) {
env 179 src/load.c module = SCM_MODULE(env);
env 180 src/load.c } else if (!SCM_UNBOUNDP(env) && !SCM_FALSEP(env)) {
env 181 src/load.c Scm_Error("bad load environment (must be a module or #f): %S", env);
env 218 src/load.c ScmObj paths, env;
env 226 src/load.c env = Scm_GetKeyword(key_environment, args[1], SCM_FALSE);
env 227 src/load.c return Scm_VMLoadFromPort(port, paths, env, flags);
env 386 src/load.c return Scm_VMLoadFromPort(SCM_PORT(port), load_paths, env, flags);
env 394 src/load.c ScmObj paths, env;
env 402 src/load.c env = Scm_GetKeyword(key_environment, args[1], SCM_FALSE);
env 407 src/load.c return Scm_VMLoad(file, paths, env, flags);
env 232 src/macro.c return mac->transformer(SCM_OBJ(mac), form, env, mac->data);
env 280 src/macro.c ScmObj env; /* compiler env of this macro definition */
env 360 src/macro.c SCM_APPEND1(h, t, Scm_MakeIdentifier(SCM_SYMBOL(lit), mod, env));
env 450 src/macro.c ctx->mod, ctx->env);
env 480 src/macro.c ctx.literals = preprocess_literals(literals, mod, env);
env 482 src/macro.c ctx.env = env;
env 683 src/macro.c && Scm_IdentifierBindingEqv(id, SCM_SYMBOL(obj), env));
env 688 src/macro.c && id->env == SCM_IDENTIFIER(obj)->env);
env 698 src/macro.c if (!match_synrule(SCM_CAR(form), pat->pattern, env, mvec))
env 718 src/macro.c return match_identifier(SCM_IDENTIFIER(pattern), form, env);
env 721 src/macro.c return match_subpattern(form, SCM_SYNTAX_PATTERN(pattern), env, mvec);
env 728 src/macro.c env, mvec);
env 732 src/macro.c if (!match_synrule(SCM_CAR(form), elt, env, mvec))
env 739 src/macro.c return match_synrule(form, pattern, env, mvec);
env 754 src/macro.c env, mvec))
env 763 src/macro.c return match_subpattern(h, SCM_SYNTAX_PATTERN(pat), env, mvec);
env 885 src/macro.c if (match_synrule(SCM_CDR(form), sr->rules[i].pattern, env, mvec)) {
env 905 src/macro.c return synrule_expand(form, env, sr);
env 919 src/macro.c sr = compile_rules(name, literals, rules, SCM_MODULE(mod), env);
env 929 src/macro.c ScmObj env = SCM_OBJ(data[0]);
env 930 src/macro.c return Scm_VMMacroExpand(result, env, FALSE);
env 967 src/macro.c data[0] = env;
env 970 src/macro.c expr = Scm_CallMacroExpander(mac, expr, env);
env 977 src/macro.c return mac->transformer(SCM_OBJ(mac), expr, env, mac->data);
env 81 src/proc.c c->env = env;
env 3570 src/stdlib.c ScmObj env;
env 3575 src/stdlib.c env = (env_scm);
env 3579 src/stdlib.c SCM_RESULT = Scm_VMEval(expr, env);
env 186 src/vm.c v->env = NULL;
env 343 src/vm.c #define ENV env
env 351 src/vm.c #define ENV vm->env
env 359 src/vm.c #define ENV vm->env
env 367 src/vm.c #define ENV vm->env
env 374 src/vm.c #define ENV env
env 391 src/vm.c ScmEnvFrame *VOLATILE env = vm->env; \
env 413 src/vm.c ScmEnvFrame *VOLATILE env = vm->env; \
env 424 src/vm.c vm->env = env; \
env 447 src/vm.c vm->env = env; \
env 463 src/vm.c env = vm->env; \
env 478 src/vm.c env = vm->env; \
env 501 src/vm.c newcont->env = ENV; \
env 525 src/vm.c ENV = CONT->env; \
env 535 src/vm.c ENV = CONT->env; \
env 543 src/vm.c ENV = CONT->env; \
env 892 src/vm.c SCM_CLOSURE(VAL0)->env);
env 894 src/vm.c ENV = SCM_CLOSURE(VAL0)->env;
env 1002 src/vm.c SCM_METHOD(VAL0)->env);
env 1263 src/vm.c FINISH_ENV(SCM_FALSE, SCM_CLOSURE(VAL0)->env);
env 1265 src/vm.c ENV = SCM_CLOSURE(VAL0)->env;
env 2551 src/vm.c vm->env = save_env(vm, vm->env);
env 2561 src/vm.c if (FORWARDED_ENV_P(c->env)) {
env 2562 src/vm.c c->env = FORWARDED_ENV(c->env);
env 2563 src/vm.c } else if (IN_STACK_P((ScmObj*)c->env)) {
env 2564 src/vm.c c->env = save_env(vm, c->env);
env 2654 src/vm.c e = save_env(vm, vm->env);
env 2655 src/vm.c if (e != vm->env) {
env 2656 src/vm.c vm->env = e;
env 2658 src/vm.c if (FORWARDED_ENV_P(c->env)) {
env 2659 src/vm.c c->env = FORWARDED_ENV(c->env);
env 2986 src/vm.c cc->env = ENV;
env 3688 src/vm.c ScmEnvFrame *env;
env 3699 src/vm.c if (!env) return SCM_FALSE;
env 3701 src/vm.c if (etab->entries[i].env == env) {
env 3705 src/vm.c vec = Scm_MakeVector(env->size+2, SCM_FALSE);
env 3706 src/vm.c SCM_VECTOR_ELEMENT(vec, 0) = env2vec(env->up, etab);
env 3708 src/vm.c for (i=0; i<env->size; i++) {
env 3709 src/vm.c SCM_VECTOR_ELEMENT(vec, i+2) = ENV_DATA(env, (env->size-i-1));
env 3712 src/vm.c etab->entries[etab->numEntries].env = env;
env 3730 src/vm.c SCM_APPEND1(stack, tail, Scm_Cons(info, env2vec(vm->env, &envTab)));
env 3736 src/vm.c evec = env2vec(c->env, &envTab);
env 3790 src/vm.c Scm_Printf(out, " %p %55.1S\n", env, env->info);
env 3791 src/vm.c Scm_Printf(out, " up=%p size=%d\n", env->up, env->size);
env 3793 src/vm.c for (i=0; i<env->size; i++) {
env 3794 src/vm.c Scm_Printf(out, " %S", ENV_DATA(env, i));
env 3802 src/vm.c ScmEnvFrame *env = vm->env;
env 3816 src/vm.c while (env) {
env 3817 src/vm.c dump_env(env, out);
env 3818 src/vm.c env = env->up;
env 3824 src/vm.c Scm_Printf(out, " env = %p\n", cont->env);