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

cosmetic changes

This commit is contained in:
Yuichi Nishiwaki 2013-12-06 07:51:32 -08:00
parent e5a0ce33aa
commit 25378e3813
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/macro.c
View File

@ -156,13 +156,16 @@ pic_identifier_p(pic_value obj)
static void static void
pic_defsyntax(pic_state *pic, const char *name, struct pic_proc *macro, struct pic_senv *mac_env) pic_defsyntax(pic_state *pic, const char *name, struct pic_proc *macro, struct pic_senv *mac_env)
{ {
struct pic_syntax *stx;
int idx; int idx;
stx = pic_syntax_new_macro(pic, pic_intern_cstr(pic, name), macro, mac_env);
idx = pic->global_senv->xlen; idx = pic->global_senv->xlen;
if (idx >= pic->global_senv->xcapa) { if (idx >= pic->global_senv->xcapa) {
pic_abort(pic, "macro table overflow"); pic_abort(pic, "macro table overflow");
} }
pic->global_senv->stx[idx] = pic_syntax_new_macro(pic, pic_intern_cstr(pic, name), macro, mac_env); pic->global_senv->stx[idx] = stx;
xh_put(pic->global_senv->tbl, name, ~idx); xh_put(pic->global_senv->tbl, name, ~idx);
pic->global_senv->xlen++; pic->global_senv->xlen++;
} }