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

save macro procesures in each syntax object

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2013-11-26 08:42:13 -08:00
parent 3d1f74d8f5
commit 1f3f7c99a2
3 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/gc.c
+5
View File
@@ -276,6 +276,11 @@ gc_mark_object(pic_state *pic, struct pic_object *obj)
break;
}
case PIC_TT_SYNTAX: {
struct pic_syntax *stx = (struct pic_syntax *)obj;
if (stx->macro) {
gc_mark_object(pic, (struct pic_object *)stx->macro);
}
break;
}
case PIC_TT_SENV: {
src/macro.c
+13
View File
@@ -385,6 +385,19 @@ pic_syntax_new(pic_state *pic, int kind, pic_sym sym)
stx = (struct pic_syntax *)pic_obj_alloc(pic, sizeof(struct pic_syntax), PIC_TT_SYNTAX);
stx->kind = kind;
stx->sym = sym;
stx->macro = NULL;
return stx;
}
struct pic_syntax *
pic_syntax_new_macro(pic_state *pic, pic_sym sym, struct pic_proc *macro)
{
struct pic_syntax *stx;
stx = (struct pic_syntax *)pic_obj_alloc(pic, sizeof(struct pic_syntax), PIC_TT_SYNTAX);
stx->kind = PIC_STX_MACRO;
stx->sym = sym;
stx->macro = macro;
return stx;
}