Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 11:46:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Signalling error on '(x . .) read syntax.

Browse source
This commit is contained in:
Alex Shinn 2012-12-15 10:26:11 +09:00
parent 29411cb4ad
commit b63537a8cc
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sexp.c
View file

@ -2638,6 +2638,9 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
} else if (sexp_read_raw(ctx, in) != SEXP_CLOSE) { } else if (sexp_read_raw(ctx, in) != SEXP_CLOSE) {
res = sexp_read_error(ctx, "multiple tokens in dotted tail", res = sexp_read_error(ctx, "multiple tokens in dotted tail",
SEXP_NULL, in); SEXP_NULL, in);
} else if (tmp == SEXP_RAWDOT) {
res = sexp_read_error(ctx, "multiple dots in list",
SEXP_NULL, in);
} else { } else {
tmp2 = res; tmp2 = res;
res = sexp_nreverse(ctx, res); res = sexp_nreverse(ctx, res);