core.clj

(defn insert-page-into-db [page]
  (println page) ; <-- doesn't get run
  (try
    (sql/insert! db-conn-vars :pages
      [:title, :pageid]
      [(get page "title"), (Integer. (get page "pageid"))]) (catch Exception e (println e))))

(defn insert-pages-into-db [pages]
  (println pages) ;  <-- gets ran
  (map
    (fn [page]
      (insert-page-into-db page)) pages))

(defn get-wikimedia-pages [from]
  (let [body (get-body (get-json-response (build-url from)))]
    (let [continue-from (url-encode (get-continue-from body)) pages (get-pages body)]
      (insert-pages-into-db pages)
      (dosync (println from))
      (if (not (= "%22Do_not_disturb%22_sign" continue-from))
        (recur continue-from)))))