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);