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:
parent
d5ecb66993
commit
c3c5600f18
|
@ -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
|
||||
---
|
||||
|
|
Loading…
Reference in New Issue
Block a user