                 (if (nil? yield)
                   (recur (drop 1 args))
                   yield))))
-                
+ 
           ;; Functions
           (let [yield (apply (resolve fun) (evaluate (-> m first val) config))]
             (if (coll? yield)

              (for [[k v] (System/getenv)]
                [(keyword k) v]))))
(def logger (ClojureToolsLogger.))


(defn bool?

        exit (when-let [main (:main program)]
               (doall (pmap #(evaluate % config) main)))]
    (println "before destroying all nodes")
    (doseq [f (remove nil?
                (map
                  (fn [[k n]]
                    (when (-> @(:node n) :options :destroy-on-exit true?)
                      (future (destroy n))))
                  @(-> config :node-manager :nodes)))]
      @f)
    exit
    ))

