Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make error messages with location info consistent

Browse source
This commit is contained in:
Justin Ethier 2020-07-23 12:44:12 -04:00
parent 7b079d36d3
commit 7dd6ddfc71
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/read.sld
View file

@ -122,11 +122,12 @@
Cyc_check_str(data, msg); Cyc_check_str(data, msg);
p = ((port_type *)port); p = ((port_type *)port);
if (Cyc_is_string(filename) == boolean_t) { if (Cyc_is_string(filename) == boolean_t) {
snprintf(buf, 1023, \"(%s line %d, column %d): %s\", snprintf(buf, 1023, \"at line %d, column %d of %s: %s\",
string_str(filename), p->line_num, p->col_num, p->line_num, p->col_num,
string_str(filename),
string_str(msg)); string_str(msg));
} else { } else {
snprintf(buf, 1023, \"(line %d, column %d): %s\", snprintf(buf, 1023, \"at line %d, column %d: %s\",
p->line_num, p->col_num, string_str(msg)); p->line_num, p->col_num, string_str(msg));
} }
Cyc_rt_raise_msg(data, buf);") Cyc_rt_raise_msg(data, buf);")