10 lines
191 B
Clojure
10 lines
191 B
Clojure
(ns common)
|
|
|
|
(defmacro inherit [& syms]
|
|
(let [f (if (<= 8 (count syms))
|
|
`hash-map
|
|
`array-map)]
|
|
`(~f ~@(mapcat #(list (keyword %) %)
|
|
syms))))
|
|
|