taps.clj

(defn files-with-names
  "Subquery to return all files, along with their filenames."
  [dir]
  (let [source (hfs-wholefile dir)]
    (<- [?filename ?file] (source ?filename ?file))))

(defn all-files
  "Subquery to return all files in the supplied directory."
  [dir]
  (let [source (hfs-wholefile dir)]
    (<- [?file] (source ?filename ?file))))