   sequence."
   [search-link]
   (let [result-urls (get-result-urls search-link)
-        result-pages (map slurp result-urls)
+        result-pages (map try-slurp result-urls)
         child-urls (map get-child-urls result-pages)
         all-child-urls (set (apply concat child-urls))
         result-texts (map get-result-text-and-child-texts


(def base-url "http://www.summitpost.org")

(defn- get-result-urls
  "Given a link to a paginated search results page from summitpost, GET the
  page and return a sequence of fully qualified urls to all of the search
  results."
  [link]
  (let [page (slurp (str base-url link))
        pager-links (or (extract-all-pager-links page) [link])
        pager-urls (map (partial str base-url) pager-links)
        search-pages (map slurp pager-urls)
        result-links (extract-all-result-links search-pages)]
    (map (partial str base-url) result-links)))


  [search-link]
  (let [result-urls (get-result-urls search-link)
        result-texts (->> result-urls
                          (map try-slurp)
                          (map extract-item-text))]
    (map make-result-entry result-urls result-texts)))

