adjust

7 years ago · 747657e6e0
parent 640c716758
commit 747657e6e0
1 changed files with 2 additions and 1 deletions
--- a/beautiful-racket/br/demo/jsonic-2/colorer.rkt
+++ b/beautiful-racket/br/demo/jsonic-2/colorer.rkt
@ -20,7 +20,8 @@
      (values lexeme 'comment #f (pos lexeme-start) (pos lexeme-end))]
     [any-char
      (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)
      (jsonic-lexer port)))
 (provide color-jsonic)