(defn select-keys
"Returns a map containing only those entries in map whose key is in keys"
{:added "1.0"}
[map keyseq]
(loop [ret {} keys (seq keyseq)]
(if keys
(let [entry (. clojure.lang.RT (find map (first keys)))]
(recur
(if entry
(conj ret entry)
ret)
(next keys)))
ret)))
Comments top
No comments for select-keys. Log in to add a comment.