more detail error message on car/cdr error
This commit is contained in:
parent
bd98dda5d0
commit
57d3618c5a
|
@ -25,7 +25,7 @@ pic_car(pic_state *pic, pic_value obj)
|
||||||
struct pic_pair *pair;
|
struct pic_pair *pair;
|
||||||
|
|
||||||
if (! pic_pair_p(obj)) {
|
if (! pic_pair_p(obj)) {
|
||||||
pic_error(pic, "pair required");
|
pic_errorf(pic, "pair required, but got ~s", obj);
|
||||||
}
|
}
|
||||||
pair = pic_pair_ptr(obj);
|
pair = pic_pair_ptr(obj);
|
||||||
|
|
||||||
|
@ -38,7 +38,7 @@ pic_cdr(pic_state *pic, pic_value obj)
|
||||||
struct pic_pair *pair;
|
struct pic_pair *pair;
|
||||||
|
|
||||||
if (! pic_pair_p(obj)) {
|
if (! pic_pair_p(obj)) {
|
||||||
pic_error(pic, "pair required");
|
pic_errorf(pic, "pair required, but got ~s", obj);
|
||||||
}
|
}
|
||||||
pair = pic_pair_ptr(obj);
|
pair = pic_pair_ptr(obj);
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue