Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 16:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Do not display unnecessary colon in error msgs

Browse source
This commit is contained in:
Justin Ethier 2017-08-18 17:33:12 -04:00
parent 68bf9e3316
commit fb18bf46ce
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
icyc.scm
View file

@ -36,7 +36,8 @@
((pair? obj) ((pair? obj)
(when (string? (car obj)) (when (string? (car obj))
(display (car obj)) (display (car obj))
(display ": ") (if (not (null? (cdr obj)))
(display ": "))
(set! obj (cdr obj))) (set! obj (cdr obj)))
(for-each (for-each
(lambda (o) (lambda (o)

2
runtime.c
View file

@ -516,7 +516,9 @@ object Cyc_default_exception_handler(void *data, int argc, closure _,
type_of(car(err)) == string_tag) { type_of(car(err)) == string_tag) {
is_msg = 0; is_msg = 0;
Cyc_display(data, car(err), stderr); Cyc_display(data, car(err), stderr);
if (cdr(err)) {
fprintf(stderr, ": "); fprintf(stderr, ": ");
}
} else { } else {
Cyc_write(data, car(err), stderr); Cyc_write(data, car(err), stderr);
fprintf(stderr, " "); fprintf(stderr, " ");