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

fixing line-number info for multi-line strings

Browse source
This commit is contained in:
Alex Shinn 2011-05-16 22:40:32 -07:00
parent 910c0e7fce
commit 505bd8d7e9
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
sexp.c
View file

@ -1545,8 +1545,9 @@ sexp sexp_read_string (sexp ctx, sexp in) {
sexp_push_char(ctx, c, in); c = 'x'; sexp_push_char(ctx, c, in); c = 'x';
} }
} }
} } else if (c == '\n') {
if (c == EOF) { sexp_port_line(in)++;
} else if (c == EOF) {
res = sexp_read_error(ctx, "premature end of string", SEXP_NULL, in); res = sexp_read_error(ctx, "premature end of string", SEXP_NULL, in);
break; break;
} }
@ -1579,7 +1580,7 @@ sexp sexp_read_symbol (sexp ctx, sexp in, int init, int internp) {
if (init != EOF) if (init != EOF)
buf[i++] = init; buf[i++] = init;
for (c = sexp_read_char(ctx, in); c != '"'; c = sexp_read_char(ctx, in)) { for (c = sexp_read_char(ctx, in); ; c = sexp_read_char(ctx, in)) {
#if SEXP_USE_FOLD_CASE_SYMS #if SEXP_USE_FOLD_CASE_SYMS
if (foldp) c = tolower(c); if (foldp) c = tolower(c);
#endif #endif