(defn extract-vars ([p] (set (cond (lvar-sym? p) [p] (coll? p) (let [p (if (seq? p) (rest p) p)] (filter lvar-sym? (flatten p))) :else nil))) ([p seen] (set/difference (extract-vars p) (set seen))))
Comments top
No comments for extract-vars. Log in to add a comment.