switches out custom code with doto macro

This commit is contained in:
Ben Mabey 2010-10-29 18:00:27 -06:00
parent dfe20783af
commit c100184e72

View file

@ -97,12 +97,9 @@
(defmacro #^{:skip-wiki true} (defmacro #^{:skip-wiki true}
make-filter-m [kind options filter-class] make-filter-m [kind options filter-class]
`(let [filter# (new ~filter-class) `(doto (new ~filter-class)
dataset-format# (get ~options :dataset-format) (.setOptions (into-array String (make-filter-options ~kind ~options)))
opts# (into-array String (make-filter-options ~kind ~options))] (.setInputFormat (:dataset-format ~options))))
(.setOptions filter# opts#)
(.setInputFormat filter# dataset-format#)
filter#))
(defmulti make-filter (defmulti make-filter
"Creates a filter for the provided attributes format. The first argument must be a symbol "Creates a filter for the provided attributes format. The first argument must be a symbol