suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix srclog on form after #lang when it's terminated by an EOF

Browse Source 
svn: r9458
This commit is contained in:
Matthew Flatt 2008-04-24 15:24:31 +00:00
parent 1ee0298552
commit ad86a60fba
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mzscheme/src/read.c
View File

@ -6196,8 +6196,11 @@ static Scheme_Object *read_lang(Scheme_Object *port,
modpath = scheme_intern_symbol(buf); modpath = scheme_intern_symbol(buf);
if (stxsrc) { if (stxsrc) {
long span;
span = SPAN(port, name_pos);
modpath = scheme_make_stx_w_offset(modpath, name_line, name_col, name_pos, modpath = scheme_make_stx_w_offset(modpath, name_line, name_col, name_pos,
SPAN(port, name_pos) - 1, stxsrc, STX_SRCTAG); span - ((ch == EOF) ? 0 : 1),
stxsrc, STX_SRCTAG);
} }
return do_reader(modpath, port, stxsrc, line, col, pos, ht, indentation, params); return do_reader(modpath, port, stxsrc, line, col, pos, ht, indentation, params);