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

detail error message on macroexpand error

This commit is contained in:
Yuichi Nishiwaki 2014-07-19 11:21:13 +09:00
parent 8a1d068519
commit ccd457544d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/macro.c
View File

@ -304,7 +304,7 @@ macroexpand_defsyntax(pic_state *pic, pic_value expr, struct pic_senv *senv)
pic_try { pic_try {
val = pic_eval(pic, val); val = pic_eval(pic, val);
} pic_catch { } pic_catch {
pic_errorf(pic, "macroexpand error: %s", pic_errmsg(pic)); pic_errorf(pic, "macroexpand error while definition: %s", pic_errmsg(pic));
} }
if (! pic_proc_p(val)) { if (! pic_proc_p(val)) {
@ -351,7 +351,7 @@ macroexpand_defmacro(pic_state *pic, pic_value expr, struct pic_senv *senv)
pic_try { pic_try {
val = pic_eval(pic, val); val = pic_eval(pic, val);
} pic_catch { } pic_catch {
pic_errorf(pic, "macroexpand error: %s", pic_errmsg(pic)); pic_errorf(pic, "macroexpand error while definition: %s", pic_errmsg(pic));
} }
if (! pic_proc_p(val)) { if (! pic_proc_p(val)) {
@ -422,7 +422,7 @@ macroexpand_macro(pic_state *pic, struct pic_macro *mac, pic_value expr, struct
pic_try { pic_try {
v = pic_apply(pic, mac->proc, args); v = pic_apply(pic, mac->proc, args);
} pic_catch { } pic_catch {
pic_errorf(pic, "macroexpand error: %s", pic_errmsg(pic)); pic_errorf(pic, "macroexpand error while application: %s", pic_errmsg(pic));
} }
#if DEBUG #if DEBUG