From c3c5600f18dcf77d27164224873c88cbc9171ebb Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 21 Aug 2009 13:16:08 +0000
Subject: [PATCH] Change the location information: avoid adjusting the source
 information of `@foo' to include the `@'.  This applies for both identifiers
 and full @-forms.

svn: r15792

original commit: e9bad827c35579de511890a7ad3c1c94b7695e64
---
 collects/tests/scribble/reader.ss | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/collects/tests/scribble/reader.ss b/collects/tests/scribble/reader.ss
index ee966b9e..779fb8dc 100644
--- a/collects/tests/scribble/reader.ss
+++ b/collects/tests/scribble/reader.ss
@@ -661,13 +661,21 @@ foo
 foo
 -@syntax-> (stx: line= 1 column= 0 position= 1 span= 3)
 ---
+\foo
+|foo|
+-@syntax->
+(stx: line= 1 column= 0 position= 1 span= 4)
+(stx: line= 2 column= 0 position= 6 span= 5)
+---
 (foo bar)
 -@syntax-> ((stx: line= 1 column= 1 position= 2 span= 3)
             (stx: line= 1 column= 5 position= 6 span= 3))
 ---
 ;; this test should break soon
 @foo
--@syntax-> (stx: line= 1 column= 0 position= 1 span= 4)
+-@syntax->
+(stx: line= 1 column= 1 position= 2 span= 3)
+;; NOT this: (stx: line= 1 column= 0 position= 1 span= 4)
 ---
 ;; -------------------- errors
 ---