mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

convert paths to path strings

Browse Source
pull/27/head
Matthew Butterick 11 years ago
parent 707e30f099
commit 25659e88dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
render.rkt
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save