gloc 304 src/compaux.c #define INIT_GLOC(gloc, name, mod) \ gloc 306 src/compaux.c gloc = Scm_FindBinding(mod, SCM_SYMBOL(SCM_INTERN(name)), TRUE); \ gloc 307 src/compaux.c if (gloc == NULL) { \ gloc 1913 src/gauche.h #define SCM_GLOC_GET(gloc) \ gloc 1914 src/gauche.h ((gloc)->getter? (gloc)->getter(gloc) : (gloc)->value) gloc 1915 src/gauche.h #define SCM_GLOC_SET(gloc, val) \ gloc 1916 src/gauche.h ((gloc)->setter? (gloc)->setter((gloc), (val)) : ((gloc)->value = (val))) gloc 1922 src/gauche.h #define SCM_GLOC_CONST_P(gloc) \ gloc 1923 src/gauche.h ((gloc)->setter == Scm_GlocConstSetter) gloc 354 src/intlib.c ScmGloc* gloc; gloc 358 src/intlib.c gloc = SCM_GLOC(gloc_scm); gloc 362 src/intlib.c SCM_RESULT = SCM_GLOC_GET(gloc); gloc 374 src/intlib.c ScmGloc* gloc; gloc 380 src/intlib.c gloc = SCM_GLOC(gloc_scm); gloc 386 src/intlib.c SCM_RESULT = SCM_GLOC_SET(gloc, value); gloc 398 src/intlib.c ScmGloc* gloc; gloc 402 src/intlib.c gloc = SCM_GLOC(gloc_scm); gloc 406 src/intlib.c SCM_RESULT = SCM_GLOC_CONST_P(gloc); gloc 423 src/intlib.c ScmGloc *gloc = Scm_FindBinding(SCM_IDENTIFIER(id)->module, gloc 426 src/intlib.c if (!gloc) SCM_RETURN(Scm_Values2(SCM_FALSE, SCM_FALSE)); gloc 427 src/intlib.c gval = SCM_GLOC_GET(gloc); gloc 191 src/module.c ScmGloc *gloc = NULL; gloc 207 src/module.c gloc = SCM_GLOC(e->value); gloc 208 src/module.c if (!SCM_UNBOUNDP(gloc->value)) goto found; gloc 234 src/module.c gloc = g; gloc 252 src/module.c if (e) { gloc = SCM_GLOC(e->value); goto found; } gloc 257 src/module.c return gloc; gloc 214 src/symbol.c ScmObj Scm_GlocConstSetter(ScmGloc *gloc, ScmObj val) gloc 217 src/symbol.c gloc->module->name, gloc->name); gloc 607 src/vm.c ScmGloc *gloc; \ gloc 611 src/vm.c gloc = Scm_FindBinding(SCM_IDENTIFIER(v)->module, \ gloc 614 src/vm.c if (gloc == NULL) { \ gloc 619 src/vm.c *PC = SCM_WORD(gloc); \ gloc 621 src/vm.c gloc = SCM_GLOC(v); \ gloc 623 src/vm.c v = SCM_GLOC_GET(gloc); \ gloc 625 src/vm.c VM_ERR(("unbound variable: %S", SCM_OBJ(gloc->name))); \ gloc 1308 src/vm.c ScmGloc *gloc; gloc 1315 src/vm.c gloc = Scm_FindBinding(id->module, id->name, gloc 1317 src/vm.c if (gloc == NULL) { gloc 1320 src/vm.c gloc = Scm_FindBinding(id->module, id->name, FALSE); gloc 1321 src/vm.c if (gloc != NULL) { gloc 1329 src/vm.c SCM_GLOC_SET(gloc, VAL0); gloc 1332 src/vm.c *PC = SCM_WORD(gloc);