From 0bafa267185212be3b60b3cf231c3756a185eb63 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 16 Oct 2013 22:57:20 -0700 Subject: [PATCH] tiny update --- render.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/render.rkt b/render.rkt index 5042853..aff59f6 100644 --- a/render.rkt +++ b/render.rkt @@ -107,7 +107,7 @@ (define/contract (render #:force [force #f] . xs) (() (#:force boolean?) #:rest (listof pathish?) . ->* . void?) (define (&render x) - (let ([path (->complete-path (->path x))]) + (let ([path (->complete-path x)]) ; (message "Dispatching render for" (->string (file-name-from-path path))) (cond ;; this will catch preprocessor files @@ -117,7 +117,7 @@ [(needs-template? path) (render-with-template path #:force force)] ;; this will catch ptree files [(ptree-source? path) (let ([ptree (dynamic-require path 'main)]) - (render-ptree-files ptree #:force force))] + (render-files-in-ptree ptree #:force force))] [(equal? FALLBACK_TEMPLATE_NAME (->string (file-name-from-path path))) (message "Render: using fallback template")] [(file-exists? path) (message "Serving static file" (->string (file-name-from-path path)))] @@ -360,7 +360,7 @@ ;; render files listed in a ptree file -(define/contract (render-ptree-files ptree #:force [force #f]) +(define/contract (render-files-in-ptree ptree #:force [force #f]) ((ptree?) (#:force boolean?) . ->* . void?) ;; pass force parameter through (for-each (λ(i) (render i #:force force))