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
This commit is contained in:
Eli Barzilay 2009-08-21 13:16:08 +00:00
parent d5ecb66993
commit c3c5600f18

View File

@ -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
---