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;
case '.':
c1 = sexp_read_char(ctx, in);
sexp_push_char(ctx, c1, in);
if (c1 == EOF || is_separator(c1)) {
res = SEXP_RAWDOT;
} else if (isdigit(c1)) {
sexp_push_char(ctx, c1, in);
res = sexp_read_float_tail(ctx, in, 0, 0);
} else {
sexp_push_char(ctx, c1, in);
res = sexp_read_symbol(ctx, in, '.', 1);
}
break;