 (defn process
   "Take one or more 'units' composed of a command and arguments and perform the command on the arguments. A command is one of:
     {:fill,:fill-one-language,:fill-verb}."
-  [units target-language & [no-older-than]]
-  (log/debug "Starting processing with: " (.size units) " instruction(s) for language " target-language)
+  [units source-language & [no-older-than]]
+  (log/debug "Starting processing with: " (.size units) " instruction(s) with source language " source-language)
   (let []
     (log/debug (str "Units: " (.size units)))
     (doall (map (fn [unit]

          (fill-by-spec spec (- count 1) table source-model target-model))
        (log/debug (str "Since no more are required, not generating any for this spec."))))))

(defn fill-language-by-spec [spec count table model & [no-older-than]]
  (let [language (:language model)
        debug (log/debug (str "fill-language-by-spec: language: " language))
        debug (log/debug (str "fill-language-by-spec: spec: " spec))
        debug (if (not (nil? no-older-than))
                (log/debug (str "fill-language-by-spec: no-older-than:" no-older-than)))

                         count
                         "expression"
                         (-> member-of-unit :fill-one-language :model)
                         source-language
                         no-older-than)))
                    (if (:fill-verb member-of-unit)
                      (do
