tidier

pollen/private/ts.rktd

@@ -1 +1 @@
-1572991275
+1572991771

pollen/render.rkt

@@ -66,7 +66,7 @@
                   #: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