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
@ -27,7 +27,8 @@
               #:line (line lexeme-start)
               #:column (+ (col 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
                        #:line (line lexeme-start)
                        #:column (col lexeme-start)