function | removed v1.9.183 | added v1.9.14 | Edit |
(speced-vars*)
(speced-vars* ns-syms)
(defn speced-vars*
([]
(speced-vars* nil))
([ns-syms]
(let [ns-match? (if (seq ns-syms)
(set (map second ns-syms))
(constantly true))]
(reduce
(fn [ret sym]
(if (ns-match? (symbol (namespace sym)))
(conj ret (list 'var sym))
ret))
#{} @_speced_vars))))