add find-unused-locals

Bronsa · Feb 14, 2019 · 8c7c393 · 8c7c393
1 parent 6f6602d
commit 8c7c393
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/clojure/tools/analyzer/jvm/deps.clj b/src/clojure/tools/analyzer/jvm/deps.clj
@@ -88,3 +88,14 @@
                   (conj asts a)))]
      ((if include-meta? identity dedupe)
       (mapv mexpansions asts)))))
+
+(defn find-undefined-locals
+  "Takes a form and returns a set of all the free locals in it"
+  [expr]
+  (->> (binding [a.j/run-passes identity]
+         (a.j/analyze expr (a.j/empty-env)))
+       ast/nodes
+       (filter (fn [{:keys [op]}] (= op :maybe-class)))
+       (map :class)
+       (remove (fn [x] (-> x str (.contains "."))))
+       (into #{})))