From 621602b42f621e4f645cc051bb028e28a966ef2a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 9 Feb 2009 22:25:48 +0000
Subject: [PATCH] fix #lang/#reader span

svn: r13509
---
 src/mzscheme/src/read.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c
index 95e11ad68d..050b396bd5 100644
--- 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);
   }