From c2b95cd87687f6a8f236c2c2a82543bc295bffc4 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 7 Aug 2017 14:00:33 -0700 Subject: [PATCH] refactor preheat --- pollen/private/preheat-cache.rkt | 9 +++++---- pollen/private/ts.rktd | 2 +- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/pollen/private/preheat-cache.rkt b/pollen/private/preheat-cache.rkt index a9b09ad..acb634b 100644 --- a/pollen/private/preheat-cache.rkt +++ b/pollen/private/preheat-cache.rkt @@ -9,10 +9,11 @@ (define max-places 8) ; number of parallel processes to spawn at a time (define paths-that-should-be-cached (for/list ([path (in-directory starting-dir)] - #:when (or (preproc-source? path) - (markup-source? path) - (markdown-source? path) - (pagetree-source? path))) + #:when (for/or ([proc (in-list (list preproc-source? + markup-source? + markdown-source? + pagetree-source?))]) + (proc path))) path)) ;; if a file is already in the cache, no need to hit it again. diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 6576b07..71850a4 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1502139238 +1502139633