Simplify defoperator

This commit is contained in:
Michael S. Klishin 2011-11-12 20:46:34 +04:00
parent 0b242f9586
commit c40b0e25c1

View file

@ -4,7 +4,7 @@
[operator]
(let [op# (str operator)
op-sym# (symbol op#)]
`(def ~op-sym# (str ~op#))))
`(def ~op-sym# ~op#)))
(defoperator $gt)
(defoperator $gte)