Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Improve error messages

Browse source
This commit is contained in:
Justin Ethier 2016-08-15 23:11:10 -04:00
parent 179c90869c
commit 1c27b280e8
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -1340,7 +1340,7 @@ integer_type Cyc_length_as_object(void *data, object l)
make_int(len, 0); make_int(len, 0);
while ((l != NULL)) { while ((l != NULL)) {
if (is_value_type(l) || ((list) l)->tag != pair_tag) { if (is_value_type(l) || ((list) l)->tag != pair_tag) {
Cyc_rt_raise_msg(data, "length - invalid parameter, expected list\n"); Cyc_rt_raise2(data, "length - invalid parameter, expected list", l);
} }
l = cdr(l); l = cdr(l);
len.value++; len.value++;
@ -1363,7 +1363,7 @@ object Cyc_length(void *data, object l)
int len = 0; int len = 0;
while ((l != NULL)) { while ((l != NULL)) {
if (is_value_type(l) || ((list) l)->tag != pair_tag) { if (is_value_type(l) || ((list) l)->tag != pair_tag) {
Cyc_rt_raise_msg(data, "length - invalid parameter, expected list\n"); Cyc_rt_raise2(data, "length - invalid parameter, expected list", l);
} }
l = cdr(l); l = cdr(l);
len++; len++;