                  
                   :corpus corpus
                  
-                  :prefix (uri/host (uri/uri url))})
+                  :prefix (uri/host (uri/uri url))
+
+                  :leaf-clusters leaf-clusters})
                
                :else
                (do (utils/sayln :continuing-crawl)

                            extract
                            stop?
                            (concat leaf-paths-obs leaf-paths)
                            new-corpus))))))))

                                      extract
                                      stop?
                                      []
                                      {}
                                      (if (leaf? {:anchor-text nil
                                                  :src-url     nil
                                                  :body        (:body body)})
                                        [[entry-point]]
                                        []))))
  
  ([url-queue visited leaf? extract stop? leaf-paths corpus leaf-clusters]
     (do
       (Thread/sleep 1000)
       (utils/sayln :queue-size (count url-queue))
