track function scopes, prep work for CLJS-937

Author: swannodette

src/clj/cljs/analyzer.clj

@@ -849,6 +849,7 @@
                                          (get-in env [:js-globals name]))}}
                      (when-let [tag (-> name meta :tag)]
                        {:ret-tag tag})))
+         env (update-in env [:fn-scope] (fnil conj []) name-var)
          locals (if (and locals name) (assoc locals name name-var) locals)
          type (-> form meta ::type)
          protocol-impl (-> form meta ::protocol-impl)
@@ -884,7 +885,8 @@
          (warning :variadic-max-arity env {:name name-var}))
        (when (not= (distinct param-counts) param-counts)
          (warning :overload-arity env {:name name-var})))
-     {:env env :op :fn :form form :name name-var :methods methods :variadic variadic
+     {:env env
+      :op :fn :form form :name name-var :methods methods :variadic variadic
       :tag 'function
       :recur-frames *recur-frames* :loop-lets *loop-lets*
       :jsdoc [(when variadic "@param {...*} var_args")]

test/clj/cljs/analyzer_tests.clj

@@ -324,3 +324,20 @@
     ;; actual: (not (= #{file-reloading dev client} #{file-reloading dev client core}))
     (is (= (set (a/ns-dependents 'utils))
            #{'file-reloading 'dev 'client 'core}))))
+
+;; =============================================================================
+;; Namespace metadata
+
+(deftest test-fn-scope
+  (is (= (get-in
+           (a/analyze ns-env
+             '(fn foo []
+                (fn bar [])))
+           [:children 0 :children 0 :env :fn-scope])
+         '[{:name foo, :info {:shadow nil}} {:name bar, :info {:shadow nil}}]))
+  (is (= (get-in
+           (a/analyze ns-env
+             '(defn foo []
+                (fn bar [])))
+           [:init :children 0 :children 0 :env :fn-scope])
+        '[{:name foo, :info {:shadow nil}} {:name bar, :info {:shadow nil}}])))