             (recur (conj ret (apply (var-get op) opts)) argv)))))))
 
 (defn- sync-target
-  "FIXME: document"
+  "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)

  (reset! *warnings* 0))

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

        (file/delete-empty-subdirs! tgt)))))

(defn- run-tasks
  "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))]
