 ")))
 
 (defn normalize-ugen-name
-  "Normalizes both SuperCollider and overtone-style names to squeezed lower-case.
-
-  This produces strings that may be used to represent unique ugen keys that can be
-  generated from both SC and Overtone names.
+  "Normalizes both SuperCollider and overtone-style names to squeezed
+   lower-case.
+
+  This produces strings that may be used to represent unique ugen keys
+  that can be generated from both SC and Overtone names.
 
   (normalize-ugen-name \"SinOsc\")  ;=> \"sinosc\"
   (normalize-ugen-name \"sin-osc\") ;=> \"sinosc\""


(defn update-all
  "Update a value retrieved with the key k in each element of a seq of
  maps by applying f to the current value.

  (update-all [{:a 1} {:a 2}] :a inc) ;=> ({:a 2} {:a 3})
  "
  [maps k f]
  (map (fn [elem]

    val))

(defn floatify-truth
  "Convert truth values to 0 or 1 using most of the standard Clojure
   truth semantics: everything that's not nil or false is 1 otherwise
   0. The exception to this allows for the preservation of number truth
   values, so an input of 0 maps to 0, and an input of 1 maps to 1."
  [obj]
  (let [obj (if (number? obj) (float obj) obj)
        truthy (float 1)
