From bc9694ae05041aa6236268f938baaab1dc60f409 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 5 Nov 2019 14:09:31 -0800 Subject: [PATCH] tidier --- pollen/private/ts.rktd | 2 +- pollen/render.rkt | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index e4bc76b..b5d5b89 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1572991275 +1572991771 diff --git a/pollen/render.rkt b/pollen/render.rkt index 22e595f..9e59105 100644 --- a/pollen/render.rkt +++ b/pollen/render.rkt @@ -66,9 +66,9 @@ #:break (null? paths)) (match (->complete-path (car paths)) [(? pagetree-source? pt) (values (append (pagetree->paths pt) (cdr paths)) acc)] - [(? ->source-path sp) #:when (file-exists? sp) (values (cdr paths) (cons sp acc))] + [(app ->source-path (and (not #false) (? file-exists?) sp)) (values (cdr paths) (cons sp acc))] [_ (values (cdr paths) acc)]))) - + (define job-count (match wants-parallel-render [#true (processor-count)]