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

s/senv->name/senv->renames/g

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2014-03-25 14:21:23 +09:00
parent 56840b326e
commit 88a7d1f2b9
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
include/picrin/macro.h
+1 -1
View File
@@ -11,7 +11,7 @@ extern "C" {
struct pic_senv {
PIC_OBJECT_HEADER
xhash *name;
xhash *renames;
struct pic_senv *up;
};
src/gc.c
+1 -1
View File
@@ -604,7 +604,7 @@ gc_finalize_object(pic_state *pic, struct pic_object *obj)
}
case PIC_TT_SENV: {
struct pic_senv *senv = (struct pic_senv *)obj;
xh_destroy(senv->name);
xh_destroy(senv->renames);
break;
}
case PIC_TT_MACRO: {
src/macro.c
+3 -3
View File
@@ -25,7 +25,7 @@ pic_put_rename(pic_state *pic, struct pic_senv *senv, pic_sym sym, pic_sym renam
{
UNUSED(pic);
xh_put_int(senv->name, sym, rename);
xh_put_int(senv->renames, sym, rename);
}
pic_sym
@@ -35,7 +35,7 @@ pic_find_rename(pic_state *pic, struct pic_senv *senv, pic_sym sym)
UNUSED(pic);
if ((e = xh_get_int(senv->name, sym)) == NULL) {
if ((e = xh_get_int(senv->renames, sym)) == NULL) {
return 0;
}
return e->val;
@@ -51,7 +51,7 @@ senv_new(pic_state *pic, struct pic_senv *up)
senv = (struct pic_senv *)pic_obj_alloc(pic, sizeof(struct pic_senv), PIC_TT_SENV);
senv->up = up;
senv->name = xh_new_int();
senv->renames = xh_new_int();
return senv;
}