diff --git a/cache.rkt b/cache.rkt index 9244d81..8e7f448 100644 --- a/cache.rkt +++ b/cache.rkt @@ -35,8 +35,6 @@ (hash-set! cache-hash 'mod-time (file-or-directory-modify-seconds path)) (hash-set! cache-hash 'main (dynamic-require path 'main)) (hash-set! cache-hash 'metas (dynamic-require path 'metas)) - (hash-set! cache-hash 'here (dynamic-require path 'here)) - (hash-set! cache-hash 'here-path (dynamic-require path 'here-path)) (void)) (when (or (not (hash-has-key? (current-cache) path)) diff --git a/main.rkt b/main.rkt index 633a1e3..82c3557 100644 --- a/main.rkt +++ b/main.rkt @@ -69,11 +69,7 @@ (cdr main-without-metas))) ;; cdr strips placeholder-root tag - ;; derive 'here & 'here-path from the hash (because they might have been overridden in the source) - (define here (hash-ref metas 'here)) - (define here-path (hash-ref metas 'here-path)) - - (provide metas main here here-path + (provide metas main ;; hide the exports that were only for internal use. (except-out (all-from-out 'inner) inner-here inner-here-path main-raw #%top)) diff --git a/render.rkt b/render.rkt index 0fd7e6e..d035e9a 100644 --- a/render.rkt +++ b/render.rkt @@ -291,9 +291,7 @@ (require pollen/lang/inner-lang-helper) (require-project-require-files) (let ([main (cached-require ,source-name 'main)] - [metas (cached-require ,source-name 'metas)] - [here (cached-require ,source-name 'here)] - [here-path (cached-require ,source-name 'here-path)]) + [metas (cached-require ,source-name 'metas)]) (local-require pollen/debug pollen/ptree pollen/template pollen/top) (include-template #:command-char ,TEMPLATE_FIELD_DELIMITER ,(->string template-name)))))