From c24e3a73bf9616d289600ad5ad30ad6b79e3075f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 7 Jan 2014 18:44:39 -0800 Subject: [PATCH] updates --- server-routes.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/server-routes.rkt b/server-routes.rkt index 9aa2f06..ac0d46d 100644 --- a/server-routes.rkt +++ b/server-routes.rkt @@ -103,11 +103,10 @@ (define leftover-files (filter (λ(f) (and (not (equal? (->string f) "polcom")) ;todo: generalize this test (not ((->string f) . starts-with? . ".")) - (not (f . in? . all-pollen-files)))) + (not (f . in? . all-pollen-files)) + (not (f . in? . all-preproc-files)))) (directory-list pollen-project-directory))) - (message leftover-files) - ;; Utility function for making file rows (define (make-file-row file routes) ;; Utility function for making cells