cosmetic change
This commit is contained in:
parent
0f1c47c421
commit
d91ec28474
extlib/benz
|
@ -252,7 +252,7 @@ expand_defmacro(pic_state *pic, pic_value expr, struct pic_env *env)
|
||||||
|
|
||||||
val = pic_call(pic, pic_compile(pic, pic_expand(pic, pic_list_ref(pic, expr, 2), env)), 0);
|
val = pic_call(pic, pic_compile(pic, pic_expand(pic, pic_list_ref(pic, expr, 2), env)), 0);
|
||||||
if (! pic_proc_p(pic, val)) {
|
if (! pic_proc_p(pic, val)) {
|
||||||
pic_errorf(pic, "macro definition \"%s\" evaluates to non-procedure object", pic_str(pic, pic_id_name(pic, id)));
|
pic_errorf(pic, "macro definition \"~s\" evaluates to non-procedure object", id);
|
||||||
}
|
}
|
||||||
|
|
||||||
define_macro(pic, uid, val);
|
define_macro(pic, uid, val);
|
||||||
|
|
Loading…
Reference in New Issue