simplifications

lang/reader-base.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
 (require (only-in scribble/reader make-at-reader) pollen/world racket/path pollen/project-requires)
 
-(provide make-reader-with-mode (all-from-out pollen/world))
+(provide define+provide-reader-in-mode (all-from-out pollen/world))
 
 
 (define read-inner (make-at-reader 
@@ -28,7 +28,7 @@
                    file-contents)))
 
 
-(define-syntax-rule (make-reader-with-mode mode)
+(define-syntax-rule (define+provide-reader-in-mode mode)
   (begin
     (define reader-mode mode)
     (define custom-read-syntax (make-custom-read-syntax reader-mode))

lang/reader.rkt

@@ -1,4 +1,3 @@
 #lang racket/base
 (require pollen/lang/reader-base)
-
+(define+provide-reader-in-mode world:mode-auto)
-(make-reader-with-mode world:mode-auto)

main-base.rkt

@@ -3,7 +3,7 @@
 
 (provide (all-defined-out) (all-from-out pollen/world))
 
-(define-syntax (define+provide-new-module-begin stx)
+(define-syntax (define+provide-module-begin-in-mode stx)
   (syntax-case stx ()
     [(_ mode-arg)
      (with-syntax ([new-module-begin (format-id stx "new-module-begin")])

main.rkt

@@ -1,3 +1,3 @@
 #lang racket/base
 (require pollen/main-base)
-(define+provide-new-module-begin world:mode-preproc)
+(define+provide-module-begin-in-mode world:mode-preproc)

markdown.rkt

@@ -1,3 +1,3 @@
 #lang racket/base
 (require pollen/main-base)
-(define+provide-new-module-begin world:mode-markdown)
+(define+provide-module-begin-in-mode world:mode-markdown)

markdown/lang/reader.rkt

@@ -1,4 +1,3 @@
 #lang racket/base
 (require pollen/lang/reader-base)
-
+(define+provide-reader-in-mode world:mode-markdown)
-(make-reader-with-mode world:mode-markdown)

markup.rkt

@@ -1,3 +1,3 @@
 #lang racket/base
 (require pollen/main-base)
-(define+provide-new-module-begin world:mode-markup)
+(define+provide-module-begin-in-mode world:mode-markup)

markup/lang/reader.rkt

@@ -1,4 +1,3 @@
 #lang racket/base
 (require pollen/lang/reader-base)
-
+(define+provide-reader-in-mode world:mode-markup)
-(make-reader-with-mode world:mode-markup)

pagetree/lang/reader.rkt

@@ -1,4 +1,3 @@
 #lang racket/base
 (require pollen/lang/reader-base)
-
+(define+provide-reader-in-mode world:mode-pagetree)
-(make-reader-with-mode world:mode-pagetree)

pre.rkt

@@ -1,3 +1,3 @@
 #lang racket/base
 (require pollen/main-base)
-(define+provide-new-module-begin world:mode-preproc)
+(define+provide-module-begin-in-mode world:mode-preproc)

pre/lang/reader.rkt

@@ -1,4 +1,3 @@
 #lang racket/base
 (require pollen/lang/reader-base)
-
+(define+provide-reader-in-mode world:mode-preproc)
-(make-reader-with-mode world:mode-preproc)

ptree.rkt

@@ -1,3 +1,3 @@
 #lang racket/base
 (require pollen/main-base)
-(define+provide-new-module-begin world:mode-pagetree)
+(define+provide-module-begin-in-mode world:mode-pagetree)