From ad86a60fba851e5195d22ef6c27c4cac48c2b427 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Apr 2008 15:24:31 +0000
Subject: [PATCH] fix srclog on form after #lang when it's terminated by an EOF

svn: r9458
---
 src/mzscheme/src/read.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/read.c b/src/mzscheme/src/read.c
index 8d976bf364..f91dee7a53 100644
--- a/src/mzscheme/src/read.c
+++ b/src/mzscheme/src/read.c
@@ -6196,8 +6196,11 @@ static Scheme_Object *read_lang(Scheme_Object *port,
 
   modpath = scheme_intern_symbol(buf);
   if (stxsrc) {
+    long span;
+    span = SPAN(port, 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);