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

cleanup

This commit is contained in:
Yuichi Nishiwaki 2014-02-13 15:01:01 +09:00
parent f9046cc614
commit 64cdd5f152
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/macro.c
View File

@ -159,7 +159,7 @@ pic_defmacro(pic_state *pic, const char *name, struct pic_proc *macro)
xh_put_int(pic->macros, uniq, (long)mac); xh_put_int(pic->macros, uniq, (long)mac);
/* auto export! */ /* auto export! */
pic_export(pic, pic_intern_cstr(pic, name)); pic_export(pic, sym);
} }
static pic_sym static pic_sym

2
src/symbol.c
View File

@ -48,8 +48,6 @@ pic_gensym(pic_state *pic, pic_sym base)
bool bool
pic_interned_p(pic_state *pic, pic_sym sym) pic_interned_p(pic_state *pic, pic_sym sym)
{ {
assert(sym >= 0);
return sym == pic_intern_cstr(pic, pic_symbol_name(pic, sym)); return sym == pic_intern_cstr(pic, pic_symbol_name(pic, sym));
} }