ignore special paths in preheat

pollen/private/file-utils.rkt

@@ -299,7 +299,7 @@
   (and (regexp-match pat str) #t))
 
 
-(define (special-path? path)
+(define+provide (special-path? path)
   (define special-paths (append default-cache-names '("compiled" ".git" ".gitignore" ".hg" ".svn" "CVS" "Makefile")))
   (and (member (path->string (last (explode-path path))) special-paths) #t))
 

pollen/private/preheat-cache.rkt

@@ -25,7 +25,7 @@
   ;; if a file is already in the cache, no need to hit it again.
   ;; this allows partially completed preheat jobs to resume.
   (define uncached-paths
-    (for/list ([path (in-directory starting-dir)]
+    (for/list ([path (in-directory starting-dir (λ (p) (not (special-path? p))))]
                #:when (for/or ([proc (in-list (list preproc-source?
                                                     markup-source?
                                                     markdown-source?

pollen/private/ts.rktd

@@ -1 +1 @@
-1572061641
+1572578851