From ccd457544d04d74bf7357e8a1042a37d25056593 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 19 Jul 2014 11:21:13 +0900 Subject: [PATCH] detail error message on macroexpand error --- src/macro.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/macro.c b/src/macro.c index f0b079b7..13eea311 100644 --- a/src/macro.c +++ b/src/macro.c @@ -304,7 +304,7 @@ macroexpand_defsyntax(pic_state *pic, pic_value expr, struct pic_senv *senv) pic_try { val = pic_eval(pic, val); } 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)) { @@ -351,7 +351,7 @@ macroexpand_defmacro(pic_state *pic, pic_value expr, struct pic_senv *senv) pic_try { val = pic_eval(pic, val); } 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)) { @@ -422,7 +422,7 @@ macroexpand_macro(pic_state *pic, struct pic_macro *mac, pic_value expr, struct pic_try { v = pic_apply(pic, mac->proc, args); } pic_catch { - pic_errorf(pic, "macroexpand error: %s", pic_errmsg(pic)); + pic_errorf(pic, "macroexpand error while application: %s", pic_errmsg(pic)); } #if DEBUG