naming glitch

beautiful-racket-demo/basic-demo/tokenize-only.rkt

@@ -8,7 +8,7 @@
        #,@tokens)))
 (module+ reader (provide read-syntax))
 
-(define-macro (parser-only-mb TOKEN ...)
+(define-macro (tokenize-only-mb TOKEN ...)
   #'(#%module-begin
      (list TOKEN ...)))
-(provide (rename-out [parser-only-mb #%module-begin]))
+(provide (rename-out [tokenize-only-mb #%module-begin]))