   "Blocks current thread until all osc messages in action-fn have
   completed. Returns result of action-fn."
   [action-fn]
-  (let [id (next-id ::server-sync-id)
+  (let [id   (next-id ::server-sync-id)
         prom (promise)
-        key (uuid)]
+        key  (uuid)]
     (on-event "/synced"
               (fn [msg] (when (= id (first (:args msg)))
                          (do

               ::osc-receiver)

(defn- massage-numerical-args
  "Massage numerical args to the form SC would like them. Currently
  this just casts all Longs to Integers and Doubles to Floats."
  [args]
  (map (fn [arg]
         (cond (instance? Long arg)

   generated by executing the action-fn have completed. Returns result
   of action-fn."
  [action-fn handler-fn]
  (let [id  (next-id ::server-sync-id)
        key (uuid)]
    (on-event "/synced"
              (fn [msg] (when (= id (first (:args msg)))
