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

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

Browse source
This commit is contained in:
Alex Shinn 2010-03-16 21:41:32 +09:00
parent 9897107d53
commit bb3d44054e
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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;