From ffc9bc3cb5a83d7178ab6c5bd6d9017b500d7033 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 25 Feb 2014 17:48:05 -0800 Subject: [PATCH] nits --- ptree.rkt | 3 +-- render.rkt | 4 ++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/ptree.rkt b/ptree.rkt index f32dffa..c648a5c 100644 --- a/ptree.rkt +++ b/ptree.rkt @@ -47,8 +47,7 @@ (define+provide/contract (file->ptree p) (pathish? . -> . ptree?) - (define path (->path p)) - (cached-require path MAIN_POLLEN_EXPORT)) + (cached-require (->path p) MAIN_POLLEN_EXPORT)) (define+provide/contract (directory->ptree dir) (directory-pathish? . -> . ptree?) diff --git a/render.rkt b/render.rkt index 0c468e9..fda7147 100644 --- a/render.rkt +++ b/render.rkt @@ -197,8 +197,8 @@ (let ([source-metas (cached-require source-path 'metas)]) (and (TEMPLATE_META_KEY . in? . source-metas) (build-path source-dir (get source-metas TEMPLATE_META_KEY))))) ; path based on metas - (report (build-path source-dir - (add-ext (add-ext DEFAULT_TEMPLATE_PREFIX (get-ext (->output-path source-path))) TEMPLATE_EXT)))))) ; path using default template + (build-path source-dir + (add-ext (add-ext DEFAULT_TEMPLATE_PREFIX (get-ext (->output-path source-path))) TEMPLATE_EXT))))) ; path using default template (let ([ft-path (build-path source-dir FALLBACK_TEMPLATE)]) ; if none of these work, make fallback template file (copy-file (build-path (current-server-extras-path) FALLBACK_TEMPLATE) ft-path #t) ft-path)))