fix parallel render inventory

pollen/private/ts.rktd

@@ -1 +1 @@
-1559937170
+1559938751

pollen/render.rkt

@@ -69,25 +69,24 @@
                   (loop)))))
 
      (define flattened-paths
-       (filter file-exists?
+       (let loop ([paths paths])
-               (let loop ([paths paths])
+         (if (null? paths)
-                 (if (null? paths)
+             null
-                     null
+             (match (->complete-path (car paths))
-                     (match (->complete-path (car paths))
+               [(? pagetree-source? pt) (append (loop (pagetree->paths pt)) (loop (cdr paths)))]
-                       [(? pagetree-source? pt) (append (loop (pagetree->paths pt)) (loop (cdr paths)))]
+               [path (cons path (loop (cdr paths)))]))))
-                       [path (cons path (loop (cdr paths)))])))))
+
-           
+     (define source-paths (for*/list ([p (in-list flattened-paths)]
-     (for ([path-group (in-list (slice-at flattened-paths (length worker-places)))])
+                                      [maybe-source-path (in-value (->source-path p))]
-       (define source-paths (for*/list ([path (in-list path-group)]
+                                      #:when (and maybe-source-path (file-exists? maybe-source-path)))
-                                        [source-path (in-value (->source-path path))]
+                            maybe-source-path))
-                                        #:when source-path)
+     (for ([source-path-group (in-list (slice-at source-paths (length worker-places)))])
-                              source-path))
+       (for ([source-path (in-list source-path-group)]
-       (for ([source-path (in-list source-paths)]
              [(wp wpidx) (in-indexed worker-places)])
          (message (format "rendering parallel on core ~a /~a" (add1 wpidx)
                           (find-relative-path (current-project-root) source-path)))
          (place-channel-put wp (cons source-path (current-poly-target))))
-       (for ([source-path (in-list source-paths)]
+       (for ([source-path (in-list source-path-group)]
              [(wp wpidx) (in-indexed worker-places)])
          (message (format "rendered parallel on core ~a /~a" (add1 wpidx)
                           (find-relative-path (current-project-root) (->output-path source-path))))