From d20c328d93eeb3c9b8c5496ee27739a7f9ed1049 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 28 Jan 2017 09:49:12 -0800 Subject: [PATCH] renames --- beautiful-racket-demo/bf-demo/reader.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/beautiful-racket-demo/bf-demo/reader.rkt b/beautiful-racket-demo/bf-demo/reader.rkt index 16a21ff..008a537 100644 --- a/beautiful-racket-demo/bf-demo/reader.rkt +++ b/beautiful-racket-demo/bf-demo/reader.rkt @@ -2,19 +2,19 @@ (require "parser.rkt") (define (read-syntax path port) - (define parse-tree (parse path (tokenize port))) + (define parse-tree (parse path (make-tokenizer port))) (define module-datum `(module bf-mod bf-demo/expander ,parse-tree)) (datum->syntax #f module-datum)) (provide read-syntax) (require brag/support) -(define (tokenize port) +(define (make-tokenizer port) (define (next-token) - (define our-lexer + (define bf-lexer (lexer [(eof) eof] [(char-set "><-.,+[]") lexeme] [any-char (next-token)])) - (our-lexer port)) + (bf-lexer port)) next-token)