diff --git a/pollen/pagetree.rkt b/pollen/pagetree.rkt index 9839ba2..4848627 100644 --- a/pollen/pagetree.rkt +++ b/pollen/pagetree.rkt @@ -117,12 +117,11 @@ (define+provide load-pagetree get-pagetree) ; bw compat -;; Try loading from pagetree file, or failing that, synthesize pagetree. (define+provide/contract (make-project-pagetree project-dir) (pathish? . -> . pagetree?) - (with-handlers ([exn:fail? (λ (exn) (directory->pagetree project-dir))]) - (define pagetree-source (build-path project-dir (setup:main-pagetree))) - (load-pagetree pagetree-source))) + (match (build-path project-dir (setup:main-pagetree)) + [(and (? file-exists?) pagetree-source) (load-pagetree pagetree-source)] + [_ (directory->pagetree project-dir)])) (define (topmost-node x) (first (->list x))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f4d32b5..fdefdbb 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1584389204 +1585968491