gistfile1.txt

(defn update-running-deas
  "Update the running-deas agent with new set of deas"
  [curr]
  (let [hosts (dea-hostnames)]
    (loop [newhosts (remove curr hosts)
           nxt      curr]
      (println "in loop")
      (if (empty? newhosts)
        (do
          (println "Returning new agent value: " (keys nxt))
          nxt)
        (do
          (println "Adding new host: " (first newhosts))
          (recur (next newhosts)
               (assoc nxt
                 (first newhosts)
                 (dea-tail-f (first newhosts)))))))))