more source loc

dev-srcloc
Matthew Butterick 8 years ago
parent 960c721e30
commit 676e79dcea

@ -24,10 +24,11 @@
[(from/to "//" "\n") (next-token)] [(from/to "//" "\n") (next-token)]
[(from/to "@$" "$@") [(from/to "@$" "$@")
(token 'SEXP-TOK (trim-ends "@$" lexeme "$@") (token 'SEXP-TOK (trim-ends "@$" lexeme "$@")
#:line (line lexeme-start) #:line (line lexeme-start)
#:column (+ (col lexeme-start) 2) #:column (+ (col lexeme-start) 2)
#:position (+ (pos lexeme-start) 2) #:position (+ (pos lexeme-start) 2)
#:span (- (span lexeme-start lexeme-end) 4))] #:span (- (pos lexeme-end)
(pos lexeme-start) 4))]
[any-char (token 'CHAR-TOK lexeme [any-char (token 'CHAR-TOK lexeme
#:line (line lexeme-start) #:line (line lexeme-start)
#:column (col lexeme-start) #:column (col lexeme-start)

Loading…
Cancel
Save