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] [operator]
(let [op# (str operator) (let [op# (str operator)
op-sym# (symbol op#)] op-sym# (symbol op#)]
`(def ~op-sym# (str ~op#)))) `(def ~op-sym# ~op#)))
(defoperator $gt) (defoperator $gt)
(defoperator $gte) (defoperator $gte)