fixing syntax error with " .)" in source (issue #45)

This commit is contained in:
Alex Shinn 2010-03-16 21:41:32 +09:00
parent 9897107d53
commit bb3d44054e

3
sexp.c
View file

@ -1584,13 +1584,12 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
break; break;
case '.': case '.':
c1 = sexp_read_char(ctx, in); c1 = sexp_read_char(ctx, in);
sexp_push_char(ctx, c1, in);
if (c1 == EOF || is_separator(c1)) { if (c1 == EOF || is_separator(c1)) {
res = SEXP_RAWDOT; res = SEXP_RAWDOT;
} else if (isdigit(c1)) { } else if (isdigit(c1)) {
sexp_push_char(ctx, c1, in);
res = sexp_read_float_tail(ctx, in, 0, 0); res = sexp_read_float_tail(ctx, in, 0, 0);
} else { } else {
sexp_push_char(ctx, c1, in);
res = sexp_read_symbol(ctx, in, '.', 1); res = sexp_read_symbol(ctx, in, '.', 1);
} }
break; break;