Isn't this just `(filter pred (-> path file file-seq))`?