From 676e79dcea8b7b1b256b5773a890d2c0b7ce23a7 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 8 Dec 2016 13:06:02 -0800 Subject: [PATCH] more source loc --- beautiful-racket/br/demo/jsonic-2/tokenizer.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/beautiful-racket/br/demo/jsonic-2/tokenizer.rkt b/beautiful-racket/br/demo/jsonic-2/tokenizer.rkt index 9a61bf0..97df881 100644 --- 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)