From 040b66680ad690c400e29df2fddb85f85eb8b223 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 3 Apr 2020 19:48:11 -0700 Subject: [PATCH] learned the hard way --- pollen/pagetree.rkt | 7 +++---- pollen/private/ts.rktd | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) 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