handle 'relative directory correctly (fixes #252)

4 years ago · 36f075edba
parent 6adebb8368
commit 36f075edba
2 changed files with 5 additions and 2 deletions
--- a/pollen/pagetree.rkt
+++ b/pollen/pagetree.rkt
@ -223,7 +223,10 @@
  (define-values (dir-for-resolving-paths pt)
    (match pt-or-path
      [(? pagetree?) (values (current-project-root) pt-or-path)]
-      [_ (values (dirname (->path pt-or-path)) (cached-doc pt-or-path))]))
+      [_ (define dir (match (dirname (->path pt-or-path))
+                       ['relative (current-project-root)]
+                       [dir dir]))
+         (values dir (cached-doc pt-or-path))]))
  (parameterize ([current-directory dir-for-resolving-paths])
    (map ->complete-path (pagetree->list pt))))

--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@ -1 +1 @@
-1615307759
+1615316593