Skip to content

Commit 4caa4fd

Browse files
committed
fix cljs.analyzer.api, can run tests again
1 parent 9e012cc commit 4caa4fd

File tree

1 file changed

+12
-6
lines changed
  • src/main/clojure/cljs/analyzer

1 file changed

+12
-6
lines changed

src/main/clojure/cljs/analyzer/api.clj

Lines changed: 12 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -145,22 +145,25 @@
145145
(defn all-ns
146146
"Return all namespaces. Analagous to clojure.core/all-ns but
147147
returns symbols identifying namespaces not Namespace instances."
148-
([] (all-ns env/*compiler*))
148+
([]
149+
(all-ns env/*compiler*))
149150
([state]
150151
(keys (get @state ::ana/namespaces))))
151152

152153
(defn find-ns
153154
"Given a namespace return the corresponding namespace analysis map. Analagous
154155
to clojure.core/find-ns."
155-
([sym] (find-ns env/*compiler* sym))
156+
([sym]
157+
(find-ns env/*compiler* sym))
156158
([state sym]
157159
{:pre [(symbol? sym)]}
158160
(get-in @state [::ana/namespaces sym])))
159161

160162
(defn ns-interns
161163
"Given a namespace return all the var analysis maps. Analagous to
162164
clojure.core/ns-interns but returns var analysis maps not vars."
163-
([ns] (ns-interns env/*compiler*))
165+
([ns]
166+
(ns-interns env/*compiler* ns))
164167
([state ns]
165168
{:pre [(symbol? ns)]}
166169
(merge
@@ -170,7 +173,8 @@
170173
(defn ns-publics
171174
"Given a namespace return all the public var analysis maps. Analagous to
172175
clojure.core/ns-publics but returns var analysis maps not vars."
173-
([ns] (ns-publics env/*compiler*))
176+
([ns]
177+
(ns-publics env/*compiler* ns))
174178
([state ns]
175179
{:pre [(symbol? ns)]}
176180
(->> (merge
@@ -182,14 +186,16 @@
182186
(defn ns-resolve
183187
"Given a namespace and a symbol return the corresponding var analysis map.
184188
Analagous to clojure.core/ns-resolve but returns var analysis map not Var."
185-
([ns sym] (ns-resolve env/*compiler* ns sym))
189+
([ns sym]
190+
(ns-resolve env/*compiler* ns sym))
186191
([state ns sym]
187192
{:pre [(symbol? ns) (symbol? sym)]}
188193
(get-in @state [::ana/namespaces ns :defs sym])))
189194

190195
(defn remove-ns
191196
"Removes the namespace named by the symbol."
192-
([ns] (remove-ns env/*compiler* ns))
197+
([ns]
198+
(remove-ns env/*compiler* ns))
193199
([state ns]
194200
{:pre [(symbol? ns)]}
195201
(swap! state update-in [::ana/namespaces] dissoc ns)))

0 commit comments

Comments
 (0)