conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleaning up

This commit is contained in:
Yuichi Nishiwaki 2014-01-24 17:08:35 +09:00
parent 56e90f564c
commit cfdf1ceaf8
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/codegen.c
View File

@ -796,22 +796,6 @@ pop_codegen_context(codegen_state *state)
return irep; return irep;
} }
static int
scope_global_define(pic_state *pic, const char *name)
{
struct xh_entry *e;
if ((e = xh_get(pic->global_tbl, name))) {
pic_warn(pic, "redefining global");
return e->val;
}
e = xh_put(pic->global_tbl, name, pic->glen++);
if (pic->glen >= pic->gcapa) {
pic_error(pic, "global table overflow");
}
return e->val;
}
static struct pic_irep *codegen_lambda(codegen_state *, pic_value); static struct pic_irep *codegen_lambda(codegen_state *, pic_value);
static void static void
@ -1140,6 +1124,22 @@ pic_compile(pic_state *pic, pic_value obj)
return proc; return proc;
} }
static int
scope_global_define(pic_state *pic, const char *name)
{
struct xh_entry *e;
if ((e = xh_get(pic->global_tbl, name))) {
pic_warn(pic, "redefining global");
return e->val;
}
e = xh_put(pic->global_tbl, name, pic->glen++);
if (pic->glen >= pic->gcapa) {
pic_error(pic, "global table overflow");
}
return e->val;
}
void void
pic_define(pic_state *pic, const char *name, pic_value val) pic_define(pic_state *pic, const char *name, pic_value val)
{ {