mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-11 06:57:33 +02:00
fixing syntax error with " .)" in source (issue #45)
This commit is contained in:
parent
9897107d53
commit
bb3d44054e
1 changed files with 1 additions and 2 deletions
3
sexp.c
3
sexp.c
|
@ -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;
|
||||
|
|
Loading…
Add table
Reference in a new issue