rename more

beautiful-racket/br/demo/jsonic/tokenizer.rkt

@@ -7,7 +7,7 @@
        [(eof) eof]
        [(between "//" "\n") (next-token)]
        [(between "@$" "$@")
-        (token 'SEXP-TOK (trim-delimiters "@$" lexeme "$@"))]
+        (token 'SEXP-TOK (trim-ends "@$" lexeme "$@"))]
        [any-char (token 'CHAR-TOK lexeme)]))
     (our-lexer port))  
   next-token)

brag/brag/support.rkt

@@ -9,8 +9,8 @@
          token
          [struct-out exn:fail:parsing]
          apply-tokenizer
-         trim-delimiters
+         trim-ends
-         delimited-by)
+         between)
 
 
 (struct token-struct (type val offset line column span skip?) 
@@ -50,10 +50,10 @@
     (for/list ([token (in-producer token-producer eof)])
               token))
 
-(define (trim-delimiters left lexeme right)
+(define (trim-ends left lexeme right)
   (string-trim (string-trim lexeme left #:right? #f) right #:left? #f))
 
-(define-lex-trans delimited-by
+(define-lex-trans between
   (λ(stx)
     (syntax-case stx ()
       [(_ OPEN CLOSE)