 
 
 (defn validated-snd
-  "Send an scsynth osc message. Validates message. Raises an exception if the
-  message is unknown or is not well formed according to the message's type
-OP  signature."
+  "Send an scsynth osc message. Validates message. Raises an exception
+  if the message is unknown or is not well formed according to the
+  message's type OP signature."
   [host path & args]
   (if-let [sig (OSC-TYPE-SIGNATURES path)]
     (apply checked-snd sig host path args)


(defn- arity-mismatch?
  [s-arity a-arity]

  (and (not (= Float/POSITIVE_INFINITY s-arity))
       (not (= s-arity a-arity))))

(defn- error-args
  [sig args]

  (some (fn [[type arg]] (if (not (valid? type arg))
                          [type arg]
                          false))

                                              (= val "raw")
                                              (= val "flac")))}

   :sample-format    {:desc      "a string representing the sound sample format - one of \"int8\", \"int16\", \"int24\", \"int32\", \"float\", \"double\", \"mulaw\", \"alaw\""
                      :validator (fn [val] (or (= val "int8")
                                              (= val "int16")
                                              (= val "int24")
