         name-rates (zipmap (map #(str base-name %) rate-vec)
                            rate-vec)]
     (assoc spec
-           :fn-names (assoc name-rates base-name base-rate))))
+      :fn-names (assoc name-rates base-name base-rate))))
 
 (defn- args-with-specs
   "Creates a list of (arg-value, arg-spec-item) pairs."

        (first expanded)
        expanded))))

; TODO: Finish me!
; Need to execute the check predicates to do things like verify argument rates, etc...
(defn check-ugen-args [spec rate special args]
  (if (vector? (:check spec))
    (doseq [check (:check spec)]

  (let [args (:args ugen)
        args-specs (args-with-specs args spec :map)
        mapped-args (map (fn [[arg map-val]] (if (and (map? map-val)
                                                     (keyword? arg))
                                              (arg map-val)
                                              arg))
                         args-specs)]
    (assoc ugen :args mapped-args)))

