improve error message

This commit is contained in:
Yuichi Nishiwaki 2015-07-22 15:59:04 +09:00
parent bfdf60eee1
commit 2848e2fe9e
1 changed files with 2 additions and 2 deletions

View File

@ -24,7 +24,7 @@ pic_car(pic_state *pic, pic_value obj)
struct pic_pair *pair;
if (! pic_pair_p(obj)) {
pic_errorf(pic, "pair required, but got ~s", obj);
pic_errorf(pic, "car: pair required, but got ~s", obj);
}
pair = pic_pair_ptr(obj);
@ -37,7 +37,7 @@ pic_cdr(pic_state *pic, pic_value obj)
struct pic_pair *pair;
if (! pic_pair_p(obj)) {
pic_errorf(pic, "pair required, but got ~s", obj);
pic_errorf(pic, "cdr: pair required, but got ~s", obj);
}
pair = pic_pair_ptr(obj);