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