convert paths to path strings

pull/27/head
Matthew Butterick 11 years ago
parent 707e30f099
commit 25659e88dc

@ -164,8 +164,8 @@
(require (for-syntax racket/base))
(require web-server/templates pollen/cache pollen/debug)
,(require-project-require-files source-path)
(let ([doc (cached-require ,source-path ',world:main-pollen-export)]
[metas (cached-require ,source-path ',world:meta-pollen-export)])
(let ([doc (cached-require ,(path->string source-path) ',world:main-pollen-export)]
[metas (cached-require ,(path->string source-path) ',world:meta-pollen-export)])
(local-require pollen/pagetree pollen/template pollen/top)
(define here (metas->here metas))
(include-template #:command-char ,world:command-marker (file ,(->string (find-relative-path source-dir template-path)))))))

Loading…
Cancel
Save