let `get-doc` and `get-metas` work with pagetree sources (fixes #159)

pollen/core.rkt

@@ -85,15 +85,12 @@
 
 
 (define (convert+validate-path pagenode-or-path caller)
-  (let ([path (get-source (if (pagenode? pagenode-or-path)
+  (let* ([path (if (pagenode? pagenode-or-path)
-                              (build-path (current-project-root) (symbol->string pagenode-or-path))
+                   (build-path (current-project-root) (symbol->string pagenode-or-path))
-                              pagenode-or-path))])
+                   pagenode-or-path)]
-    (unless path
+         [path (or (get-source path) path)])
-      ;; use `pagenode-or-path` in error message because at this point `path` is #f
+    (unless (file-exists? path)
-      (raise
+      (raise-argument-error caller "existing Pollen source, or name of its output path" path))
-       (make-exn:fail:filesystem
-        (format "~a: no source found for '~a' in directory ~a" caller pagenode-or-path (current-directory))
-        (current-continuation-marks))))
     path))
 
 

pollen/private/ts.rktd

@@ -1 +1 @@
-1513026723
+1513200079