fix for Windows paths in include-template

pull/9/head
Matthew Butterick 11 years ago
parent 284b1c251e
commit b0d48526d2

@ -168,7 +168,7 @@
[metas (cached-require ,source-path ',world:meta-pollen-export)]) [metas (cached-require ,source-path ',world:meta-pollen-export)])
(local-require pollen/pagetree pollen/template pollen/top) (local-require pollen/pagetree pollen/template pollen/top)
(define here (metas->here metas)) (define here (metas->here metas))
(include-template #:command-char ,world:command-marker ,(->string (find-relative-path source-dir template-path)))))) (include-template #:command-char ,world:command-marker (file ,(->string (find-relative-path source-dir template-path)))))))
(time (parameterize ([current-directory source-dir]) ; because include-template wants to work relative to source location (time (parameterize ([current-directory source-dir]) ; because include-template wants to work relative to source location
(render-through-eval expr-to-eval)))) (render-through-eval expr-to-eval))))

Loading…
Cancel
Save