Better names and comments

main.rkt

@@ -260,7 +260,7 @@ racket main.rkt -e \"/home/bost/der/search-notes/main.rkt /home/bost/der/search-
                            (lambda (input-file)
                              ;; (printf "1. input-file:\n~a\n" input-file)
                              (define expression
-                               `(notes
+                               `(notes-syntax-parser
                                  ,@((compose
                                      ;; (lambda (p) (printf "13. ~a\n" p) p)
                                      (curry cons pattern-with-diacritics)

notes-reader.rkt

@@ -1,14 +1,18 @@
 #lang racket
-(provide (rename-out (notes-read-syntax read-syntax))
+(provide (rename-out
+          ;; Every reader must export a read-syntax function.
+          (notes-read-syntax read-syntax))
          parse-notes)
 (require syntax/readerr)
 
+;; A read-syntax must return code describing a module, packaged as a syntax
+;; object.
 (define (notes-read-syntax src in)
   (datum->syntax
    #f
    `(module notes racket
       (require "notes.rkt")
-      (notes
+      (notes-syntax-parser
        ,@(parse-notes src in)))))
 
 ;; `src` - context information about what file this code resides in. The value

notes.rkt

@@ -1,5 +1,5 @@
 #lang racket
-(provide notes)
+(provide notes-syntax-parser)
 (require
  (for-syntax syntax/parse
              racket/function ;; curry
@@ -9,9 +9,9 @@
 #;(require (rename-in racket/function
                     (curry partial)))
 
-(define-syntax (notes form)
+(define-syntax (notes-syntax-parser form)
   (syntax-parse form
-    ((notes
+    ((notes-syntax-parser
       text:string
       case-sensitivity:string
       colorize-matches:boolean