 
 (defn- resolve-gen-name
   "If the gen is a cgen or ugen returns the :name otherwise returns name
-   unchanged"
+   unchanged assuming it's a keyword."
   [gen]
   (if (and (associative? gen)
-                          (or (= :overtone.sc.ugen/ugen (:type gen))
-                              (= :overtone.sc.cgen/cgen (:type gen))))
+           (or (= :overtone.sc.ugen/ugen (:type gen))
+               (= :overtone.sc.cgen/cgen (:type gen))))
     (keyword (:name gen))
     gen))
 

     (let [examples @examples*
           gen-name (resolve-gen-name gen)
           example (get-in examples [gen-name key])]
       (println (:full-doc example)))))

(defn- longest-gen-example-key
  [gen-examples]
  (let [example-keys (keys gen-examples)]
    (if example-keys
      (length-of-longest-string example-keys)
      0)))

(defn examples
  "Print out examples for a specific gen. If passed a gen and a key will list
