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

\<space><newline><space> should only skip one line

Browse source
This commit is contained in:
Alex Shinn 2013-05-28 21:24:21 +09:00
parent 20a2c02b19
commit 99d9203362
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
sexp.c
View file

@ -2158,7 +2158,11 @@ sexp sexp_read_string (sexp ctx, sexp in, int sentinel) {
break;
#if SEXP_USE_ESCAPE_NEWLINE
default:
if (isspace(c)) while (isspace(c) && c!=EOF) c=sexp_read_char(ctx, in);
if (isspace(c)) {
while (c==' ' || c=='\t') c=sexp_read_char(ctx, in);
if (c=='\r') c=sexp_read_char(ctx, in);
if (c=='\n') do {c=sexp_read_char(ctx, in);} while (c==' ' || c=='\t');
}
#endif
}
if (sexp_exceptionp(res)) break;