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

  sequence."
  [search-link]
  (let [result-urls (get-result-urls search-link)
        result-pages (map 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

  "Concatenate result page content with contents of pages at child-urls."
  [result-page child-urls]
  (let [result-text (extract-item-text result-page)
        child-pages (map try-slurp child-urls)
        child-texts (map extract-item-text child-pages)]
    (string/join "\n" (cons result-text child-texts))))

