bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit c3c5600f18dcf77d27164224873c88cbc9171ebb
parent d5ecb66993a055d490b85726d29cf168b374b376
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Fri, 21 Aug 2009 13:16:08 +0000

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

Diffstat:
M
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
@@ -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
 ---