       (t-get-raw-tree [this]
         @tree))))
 
-(defn- empty-paths-remover
-  "Empty paths remover."
+(defn- empty-paths-finder
+  "Empty paths finder."
   [tree-impl pstore tpool tenant paths options]
-  (let [removed-paths (atom [])]
+  (let [empty-paths (atom [])]
     (reify TreeProcessor
       (tp-get-title [this]
         "Checking paths")

    (let [pstore (pstore/elasticsearch-path-store es-url options)
          sort (get-sort-or-dummy-fn (:sort options))
          empty-paths (->> (tree-walker tenant paths pstore options
                                        empty-paths-remover)
                           (sort))]
      (newline)
      (dorun (map println empty-paths)))

            pstore (pstore/elasticsearch-path-store es-url options)
            sort (get-sort-or-dummy-fn (:sort options))
            empty-paths (->> (tree-walker tenant paths pstore options
                                          empty-paths-finder tpool)
                             (sort))]
        (process-paths tenant empty-paths pstore options
                       remove-empty-paths-processor tpool)))
