                                    (assoc sources name src))
                                  sources
                                  tasks)))
-            (assoc :compiled @compiled))))))
+            )))))
 
 (defn compile-sources
   [{:keys [n-compile-threads] :as state} source-names]


(defn do-compile-modules
  "compiles source based on :build-modules (created by prepare-modules)"
  [{:keys [build-modules] :as state}]
  (let [source-names
        (into [] (mapcat :sources build-modules))]
    (compile-sources state source-names)))

(defn prepare-compile
  "prepares for compilation (eg. create source lookup index, runtime-setup)"

            ready
            (atom #{})

            ;; source-name -> exception
            errors
            (atom {})
