|
8 | 8 | [clojure.string :as string] |
9 | 9 | [clojure.data.csv :as csv] |
10 | 10 | [frak :as f]) |
11 | | - (:import (clojure.lang MultiFn) |
12 | | - (java.text SimpleDateFormat) |
| 11 | + (:import (java.text SimpleDateFormat) |
13 | 12 | (java.util Date) |
14 | 13 | (java.util.regex Pattern))) |
15 | 14 |
|
|
105 | 104 | ;; TODO: update all usages of this function (preiously variable) |
106 | 105 | (defn keyword-groups [namespace] |
107 | 106 | (let [vars (vars-in-ns namespace) |
108 | | - compiler-specials (keys (. clojure.lang.Compiler specials)) |
| 107 | + compiler-specials (set (keys (. clojure.lang.Compiler specials))) |
109 | 108 | exceptions '#{throw try catch finally} |
110 | 109 | repeat '#{doseq dotimes while loop loop* recur} |
111 | 110 | conditionals '#{case case* |
112 | 111 | cond cond-> cond->> condp |
113 | 112 | if if* if-let if-not if-some |
114 | 113 | when when-first when-let when-not when-some} |
115 | 114 | define (set (filter define? |
116 | | - (set/union (map :name vars) |
| 115 | + (set/union (set (map :name vars)) |
117 | 116 | compiler-specials))) |
118 | 117 | macros (filter-vars :macro vars) |
119 | 118 | functions (filter-vars function? vars) |
|
0 commit comments