improving "missing trailing )" message to include starting line

This commit is contained in:
Alex Shinn 2011-04-05 23:46:31 +09:00
parent dac4e0f4e9
commit d94baacd9a

3
sexp.c
View file

@ -1842,7 +1842,8 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
} else if (tmp == SEXP_CLOSE) { } else if (tmp == SEXP_CLOSE) {
res = (sexp_pairp(res) ? sexp_nreverse(ctx, res) : res); res = (sexp_pairp(res) ? sexp_nreverse(ctx, res) : res);
} else { } else {
res = sexp_read_error(ctx, "missing trailing ')'", SEXP_NULL, in); res = sexp_read_error(ctx, "missing trailing ')' started on line",
sexp_make_fixnum(line), in);
} }
} }
if ((line >= 0) && sexp_pairp(res)) { if ((line >= 0) && sexp_pairp(res)) {