|
|
@ -127,6 +127,9 @@
|
|
|
|
(and (directory-exists? path)
|
|
|
|
(and (directory-exists? path)
|
|
|
|
(or (ends-with? (path->string path) "compiled"))))
|
|
|
|
(or (ends-with? (path->string path) "compiled"))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define+provide (cache-file? path)
|
|
|
|
|
|
|
|
(or (ends-with? (path->string path) world:cache-filename)))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(define+provide (pollen-related-file? file)
|
|
|
|
(define+provide (pollen-related-file? file)
|
|
|
|
(ormap (λ(proc) (proc file)) (list
|
|
|
|
(ormap (λ(proc) (proc file)) (list
|
|
|
@ -138,4 +141,5 @@
|
|
|
|
scribble-source?
|
|
|
|
scribble-source?
|
|
|
|
null-source?
|
|
|
|
null-source?
|
|
|
|
racket-source?
|
|
|
|
racket-source?
|
|
|
|
magic-directory?)))
|
|
|
|
magic-directory?
|
|
|
|
|
|
|
|
cache-file?)))
|