SHARE
TWEET

Untitled

a guest Jul 1st, 2014 205 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defmulti ^{:private true} read-sysex-event
  2.   (fn [in] (.read in)))
  3.  
  4. (defmethod read-sysex-event REPORT_FIRMWARE
  5.   [in]
  6.   (let [version (read-version in)
  7.         name (consume-sysex in "" #(str %1 (char %2)))]
  8.     {:type :firmware-report
  9.      :version version
  10.      :name name}))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top