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

fix #lang/#reader span

Browse Source 
svn: r13509
This commit is contained in:
Matthew Flatt 2009-02-09 22:25:48 +00:00
parent 79ef2483f3
commit 621602b42f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6148,7 +6148,7 @@ static Scheme_Object *read_lang(Scheme_Object *port,
long span; long span;
span = SPAN(port, name_pos); 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 - ((ch == EOF) ? 0 : 1), span,
stxsrc, STX_SRCTAG); stxsrc, STX_SRCTAG);
} }