       (println "Sorry, unable to find a matching ugen.")
       (print-ug-docs specs))))
 
-(defmacro ug-doc
+(defmacro ugen-doc
   "Print documentation for ugen with name ug-name"
   [ug-name]
   `(if-let [spec# (fetch-ugen-spec '~ug-name)]

            (:full-doc ug-spec)
            "\n\n"))))

(defn print-ug-docs
  "Pretty print out a list of ugen specs by printing out their names and
  full-doc strings."
  [specs]

    #(println (pretty-ugen-doc-string %))
    specs)))

(defmacro find-ugen
  "Find a ugen containing the specified terms which may be either strings or
  regexp patterns. Will search the ugen's docstrings for occurrances of all the
  specified terms. Prints out a list of summaries of each matching ugen.
