speed improvements

main-base.rkt

@@ -1,7 +1,7 @@
 #lang racket/base
-(require (for-syntax racket/base racket/syntax) "world.rkt")
+(require (for-syntax racket/base racket/syntax) pollen/world)
 
-(provide (all-defined-out) (all-from-out "world.rkt"))
+(provide (all-defined-out) (all-from-out pollen/world))
 
 (define-syntax (make-new-module-begin stx)
   (syntax-case stx ()

main.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require (for-syntax racket/base))
-(require "main-base.rkt")
+(require pollen/main-base)
 
 (provide (except-out (all-from-out racket/base) #%module-begin)
          (rename-out [new-module-begin #%module-begin]))

markdown.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require (for-syntax racket/base))
-(require "main-base.rkt")
+(require pollen/main-base)
 
 (provide (except-out (all-from-out racket/base) #%module-begin)
          (rename-out [new-module-begin #%module-begin]))

markup.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require (for-syntax racket/base))
-(require "main-base.rkt")
+(require pollen/main-base)
 
 (provide (except-out (all-from-out racket/base) #%module-begin)
          (rename-out [new-module-begin #%module-begin]))

pre.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require (for-syntax racket/base))
-(require "main-base.rkt")
+(require pollen/main-base)
 
 (provide (except-out (all-from-out racket/base) #%module-begin)
          (rename-out [new-module-begin #%module-begin]))

ptree.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 (require (for-syntax racket/base))
-(require "main-base.rkt")
+(require pollen/main-base)
 
 (provide (except-out (all-from-out racket/base) #%module-begin)
          (rename-out [new-module-begin #%module-begin]))

render.rkt

@@ -52,8 +52,8 @@
 (define/contract+provide (render-pagetree pagetree-or-path)
   ((or/c pagetree? pathish?) . -> . void?)
   (define pagetree (if (pagetree? pagetree-or-path)
-                    pagetree-or-path
+                       pagetree-or-path
-                    (cached-require pagetree-or-path world:main-pollen-export)))
+                       (cached-require pagetree-or-path world:main-pollen-export)))
   (apply render-batch (pagetree->list pagetree)))
 
 
@@ -220,17 +220,19 @@
            racket/contract 
            racket/list
            racket/match
+           racket/syntax
+           pollen/cache
            pollen/debug
            pollen/decode
            pollen/file
            pollen/main
+           pollen/lang/reader-base
            pollen/pagetree
-           pollen/cache
-           sugar
-           txexpr
            pollen/template
            pollen/world
-           pollen/project-requires)
+           pollen/project-requires
+           sugar
+           txexpr)
   (define-namespace-anchor my-module-cache-ns-anchor)
   (provide my-module-cache-ns-anchor))
 
@@ -253,14 +255,17 @@
                 racket/contract 
                 racket/list
                 racket/match
+                racket/syntax
                 pollen/debug
+                pollen/cache
                 pollen/decode
-                pollen/file
+                pollen/file           
+                pollen/main
+                pollen/lang/reader-base
                 pollen/pagetree
-                pollen/cache
+                pollen/project-requires
-                sugar
-                txexpr
                 pollen/template
                 pollen/world
-                pollen/project-requires))   
+                sugar
+                txexpr))   
     (string->bytes/utf-8 (eval expr-to-eval (current-namespace)))))