       (:args ug))))
 
 (defn topological-sort-ugens
-  "Sort into a vector where each node in the directed graph of ugens will always
-  be preceded by its upstream dependencies."
+  "Sort into a vector where each node in the directed graph of ugens
+  will always be preceded by its upstream dependencies."
   [ugens]
   (loop [ugens ugens
          ; start with leaf nodes that don't have any dependencies

      param-map)))

(defn- stringify-names
  "takes a map and converts the val of key :name to a string"
  [m]
  (into {} (for [[k v] m] (if (= :name k) [k (str v)] [k v]))))


;  or through buses.
;
(defn synthdef
  "Transforms a synth definition (ugen-graph) into a form that's ready
  to save to disk or send to the server.

    (synthdef \"pad-z\" [
  "
  [sname params ugens constants]
  (let [grouped-params  (group-params params)
        [params pnames] (make-params grouped-params)
        with-ctl-ugens  (concat (make-control-ugens grouped-params) ugens)
        detailed        (detail-ugens with-ctl-ugens constants grouped-params)]
    (with-meta {:name (str sname)
                :constants constants
                :params params
