         (file/delete-empty-subdirs! tgt)))))
 
 (defn- run-tasks
-  "FIXME: document"
+  "Given a task pipeline, builds the initial fileset, sets the initial build
+  state, and runs the pipeline."
   [task-stack]
   (binding [*warnings* (atom 0)]
     (let [fs (commit! (reset-fileset))]

  (reset! *warnings* 0))

(defn- construct-tasks
  "FIXME: document"
  [& argv]
  (loop [ret [] [op-str & args] argv]
    (if-not op-str

            (recur (conj ret (apply (var-get op) opts)) argv)))))))

(defn- sync-target
  "Copy output files to the target directory (if BOOT_EMIT_TARGET is not 'no')."
  [before after]
  (when-not (= "no" (boot.App/config "BOOT_EMIT_TARGET"))
    (let [tgt  (get-env :target-path)
