pull/218/head
Matthew Butterick 5 years ago
parent d32b24edb5
commit bc9694ae05

@ -1 +1 @@
1572991275
1572991771

@ -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

Loading…
Cancel
Save