more source loc

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

@ -27,7 +27,8 @@
#: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