Cosmetics

This commit is contained in:
Michael S. Klishin 2012-06-08 22:09:17 +04:00
parent d824e622c3
commit f07f577094

View file

@ -11,10 +11,7 @@
(defmacro ^{:private true} defoperator (defmacro ^{:private true} defoperator
[operator] [operator]
(let [op# (str operator) `(def ^{:const true} ~(symbol (str operator)) ~(str operator)))
op-sym# (symbol op#)
meta {:const true}]
`(def ^{:const true} ~op-sym# ~op#)))
;; ;;
;; QUERY OPERATORS ;; QUERY OPERATORS