                                           (-> (java.util.Date.) .getTime)))]
                       (log :info (str "Seed: " (.getTime effective)))
                       effective)
-          result (run-program (assoc config ;; This timestamp is also intended to be used (via .getTime)
-                                            ;; as a seed for any pseudorandom number generation, so that
-                                            ;; randomized testing can be retested as deterministically
-                                            ;; as possible.
+          result (run-program (assoc config ;; This timestamp is also intended to be
+                                            ;; used (via .getTime) as a seed for any
+                                            ;; pseudorandom number generation, so that
+                                            ;; randomized testing can be retested as
+                                            ;; deterministically as possible.
                                             :effective effective
-                                            ;; Instantiate a node manager with an empty node map as an atom.
+                                            ;; Instantiate a node manager with an empty
+                                            ;; node map as an atom.
                                             ;; Takes a seed.
                                             :node-manager (node-manager effective)
-                                            ;; The data connector is for resolving literal
-                                            ;; representations of particular resources. In the future,
-                                            ;; database persistence should be supported, with
-                                            ;; continued support for file based configuration, too.
+                                            ;; The data connector is for resolving
+                                            ;; literal representations of particular
+                                            ;; resources. In the future, database
+                                            ;; persistence should be supported, with
+                                            ;; continued support for file based
+                                            ;; configuration, too.
                                             :data-connector data-connector
                                             :genv (or (:genv config) (atom {}))))]
       (log :info (str "Seed: " (.getTime effective)))

              (-> config :node-manager (invoke checkpoint :local) (assert-checkpoint config {})))))
    ))


(defn run-module
  [m c]

  (let [program (if (map? (:program config))
                  (:program config)
                  (try
                    (resolve-program (:data-connector config)
                                     (evaluate (:program config) config))
                    (catch Exception e
                      (die
                        (str "The configuration must have a program property, "
                             "which must resolve to a valid yaml document:")
                        (.getMessage e)))))
        config (assoc config :env (evaluate (:env config) config))
        exit (try
