fix #lang/#reader span

svn: r13509
2009-02-09 22:25:48 +00:00 · 2009-02-09 22:25:48 +00:00 · 621602b42f
commit 621602b42f
parent 79ef2483f3
1 changed files with 1 additions and 1 deletions
--- a/src/mzscheme/src/read.c
+++ b/src/mzscheme/src/read.c
@ -6148,7 +6148,7 @@ static Scheme_Object *read_lang(Scheme_Object *port,
    long span;
    span = SPAN(port, name_pos);
    modpath = scheme_make_stx_w_offset(modpath, name_line, name_col, name_pos, 
-                                       span - ((ch == EOF) ? 0 : 1), 
+                                       span, 
                                       stxsrc, STX_SRCTAG);
  }