|
|
@ -20,7 +20,8 @@
|
|
|
|
(values lexeme 'comment #f (pos lexeme-start) (pos lexeme-end))]
|
|
|
|
(values lexeme 'comment #f (pos lexeme-start) (pos lexeme-end))]
|
|
|
|
[any-char
|
|
|
|
[any-char
|
|
|
|
(values lexeme 'string #f (pos lexeme-start) (pos lexeme-end))]))
|
|
|
|
(values lexeme 'string #f (pos lexeme-start) (pos lexeme-end))]))
|
|
|
|
(if (and in-racket-expr? (not (equal? (peek-string 2 0 port) "$@")))
|
|
|
|
(if (and in-racket-expr?
|
|
|
|
|
|
|
|
(not (equal? (peek-string 2 0 port) "$@")))
|
|
|
|
(racket-lexer port)
|
|
|
|
(racket-lexer port)
|
|
|
|
(jsonic-lexer port)))
|
|
|
|
(jsonic-lexer port)))
|
|
|
|
(provide color-jsonic)
|
|
|
|
(provide color-jsonic)
|