more source loc

8 years ago · 676e79dcea
parent 960c721e30
commit 676e79dcea
1 changed files with 5 additions and 4 deletions
--- a/beautiful-racket/br/demo/jsonic-2/tokenizer.rkt
+++ b/beautiful-racket/br/demo/jsonic-2/tokenizer.rkt
@ -24,10 +24,11 @@
       [(from/to "//" "\n") (next-token)]
       [(from/to "@$" "$@")
        (token 'SEXP-TOK (trim-ends "@$" lexeme "$@")
-                 #:line (line lexeme-start)
-                 #:column (+ (col lexeme-start) 2)
-                 #:position (+ (pos lexeme-start) 2)
-                 #:span (- (span lexeme-start lexeme-end) 4))]
+               #:line (line lexeme-start)
+               #:column (+ (col lexeme-start) 2)
+               #:position (+ (pos lexeme-start) 2)
+               #:span (- (pos lexeme-end)
+                         (pos lexeme-start) 4))]
       [any-char (token 'CHAR-TOK lexeme
                        #:line (line lexeme-start)
                        #:column (col lexeme-start)