#; followed by non-datum tokens is an error

This commit is contained in:
Alex Shinn 2013-01-14 19:36:25 +09:00
parent 3e241e3a3e
commit ec21e90e16

2
sexp.c
View file

@ -2796,7 +2796,7 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
/* case '0': case '1': case '2': case '3': case '4': */ /* case '0': case '1': case '2': case '3': case '4': */
/* case '5': case '6': case '7': case '8': case '9': */ /* case '5': case '6': case '7': case '8': case '9': */
case ';': case ';':
tmp = sexp_read_raw(ctx, in); /* discard */ tmp = sexp_read(ctx, in); /* discard */
if (sexp_exceptionp(tmp)) if (sexp_exceptionp(tmp))
res = tmp; res = tmp;
else else