warn syntax redefinition

This commit is contained in:
Yuichi Nishiwaki 2014-07-26 13:48:07 +09:00
parent 382de8dc96
commit 3fb986a463
1 changed files with 2 additions and 0 deletions

View File

@ -286,6 +286,8 @@ macroexpand_defsyntax(pic_state *pic, pic_value expr, struct pic_senv *senv)
sym = pic_sym(var);
if (! pic_find_rename(pic, senv, sym, &rename)) {
rename = pic_add_rename(pic, senv, sym);
} else {
pic_warnf(pic, "redefining syntax variable: ~s", pic_sym_value(sym));
}
val = pic_cadr(pic, pic_cdr(pic, expr));