From fe20dade0308cf4f4d45663199c70e74170a3230 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 12 Jul 2018 11:27:05 -0600
Subject: [PATCH] correction

---
 beautiful-racket-demo/regexcellent-demo/main.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/beautiful-racket-demo/regexcellent-demo/main.rkt b/beautiful-racket-demo/regexcellent-demo/main.rkt
index df9a3dd..c3767b0 100644
--- a/beautiful-racket-demo/regexcellent-demo/main.rkt
+++ b/beautiful-racket-demo/regexcellent-demo/main.rkt
@@ -7,7 +7,7 @@
 
 (define-lex-abbrev regex-chars (char-set "()*+?.^$|<!=[]"))
   
-(define lex
+(define tokenize
   (lexer
    [(:+ "\n") (token 'NEWLINE lexeme)]
    [(from/stop-before ";" "\n") (token 'COMMENT #:skip? #t)]
@@ -16,7 +16,7 @@
    [alphabetic (token 'LITERAL lexeme)]))
 
 (define (read-syntax src ip)
-  (define parse-tree (parse (λ () (lex ip))))
+  (define parse-tree (parse (λ () (tokenize ip))))
   (strip-context
    (with-syntax ([PT parse-tree])
      #'(module regexcellent-mod regexcellent-demo