- add ana/get-aliases helper (#123)

- use consistently

Author: swannodette

src/main/clojure/cljs/analyzer.cljc

@@ -674,7 +674,7 @@
                         (with-meta {:sym reader-fn}))]))
             (into {})))))
 
-#?(:clj 
+#?(:clj
    (def load-data-readers (memoize load-data-readers*)))
 
 #?(:clj
@@ -4369,6 +4369,12 @@
              (resolve-var (assoc @env/*compiler* :ns (get-namespace *cljs-ns*))
                sym)))))
 
+(defn get-aliases
+  "Get all alias maps for a namespace."
+  [ns]
+  (apply merge
+    ((juxt :requires :require-macros :as-aliases)
+     (get-namespace ns))))
 
 #?(:clj
    (defn forms-seq*
@@ -4391,10 +4397,7 @@
               (lazy-seq
                 (let [form (binding [*ns* (create-ns *cljs-ns*)
                                      reader/*data-readers* data-readers
-                                     reader/*alias-map*
-                                     (apply merge
-                                       ((juxt :requires :require-macros :as-aliases)
-                                         (get-namespace *cljs-ns*)))
+                                     reader/*alias-map* (get-aliases *cljs-ns*)
                                      reader/resolve-symbol resolve-symbol]
                              (reader/read opts pbr))]
                   (if (identical? form eof-sentinel)

src/main/clojure/cljs/core/server.clj

@@ -93,10 +93,7 @@
                                                        reader/resolve-symbol ana/resolve-symbol
                                                        reader/*data-readers* (merge tags/*cljs-data-readers*
                                                                                (ana/load-data-readers))
-                                                       reader/*alias-map*
-                                                       (apply merge
-                                                         ((juxt :requires :require-macros :as-aliases)
-                                                           (ana/get-namespace ana/*cljs-ns*)))]
+                                                       reader/*alias-map* (ana/get-aliases ana/*cljs-ns*)]
                                                (reader/read+string {:eof EOF :read-cond :allow :features #{:cljs}}
                                                  in-reader))]
                                 (try

src/main/clojure/cljs/repl.cljc

@@ -1145,10 +1145,7 @@
                                        reader/resolve-symbol ana/resolve-symbol
                                        reader/*data-readers* (merge tags/*cljs-data-readers*
                                                                (ana/load-data-readers))
-                                       reader/*alias-map*
-                                       (apply merge
-                                         ((juxt :requires :require-macros :as-aliases)
-                                           (ana/get-namespace ana/*cljs-ns*)))]
+                                       reader/*alias-map* (ana/get-aliases ana/*cljs-ns*)]
                                (try
                                  (read request-prompt request-exit)
                                  (catch Throwable e