clojure reader macro to support "partial"

partial-reader.clj

; cf.
; http://briancarper.net/blog/449/clojure-reader-macros
; http://d.hatena.ne.jp/nokturnalmortum/20100527/1274961805

(ns partial-reader
  (import [clojure.lang LispReader LispReader$ListReader Cons Symbol]))

(defn dispatch-reader-macro [ch fun]
  (let [dm (.get (doto (.getDeclaredField LispReader "dispatchMacros")
                   (.setAccessible true))
                 nil)]
    (aset dm (int ch) fun)))

(defn cons-symbol-object [symbol-str reader letter]
  (let [c (.read reader)]
    (if (= c (int \())
      (Cons. (Symbol/create symbol-str) (.invoke (LispReader$ListReader.) reader c))
      (throw (Exception. (str "Reader barfed on " (char c)))))))

(def partial-reader (partial cons-symbol-object "partial"))
(dispatch-reader-macro \# partial-reader)


; example
(def plus10 ##(+ 10))
(println (plus10 1))

(println (map ##(* 2) '(1 2 3)))