CLJS-1225: Variadic function with same name as parent function gives runtime error in advanced compile mode.

For optimized invokes where we rename the fn disable shadowing as
shadowing has *already* been applied.

Add test.

Author: swannodette

src/clj/cljs/compiler.cljc

@@ -785,7 +785,9 @@
                   (-> info
                     (assoc :name (symbol (str (munge info) ".cljs$core$IFn$_invoke$arity$variadic")))
                     ;; bypass local fn-self-name munging, we're emitting direct
-                    (update-in [:info] dissoc :fn-self-name))))
+                    ;; shadowing already applied
+                    (update-in [:info]
+                      #(-> % (dissoc :shadow) (dissoc :fn-self-name))))))
               {:max-fixed-arity mfa}]
 
              ;; direct dispatch to specific arity case
@@ -797,7 +799,9 @@
                       (-> info
                         (assoc :name (symbol (str (munge info) ".cljs$core$IFn$_invoke$arity$" arity)))
                         ;; bypass local fn-self-name munging, we're emitting direct
-                        (update-in [:info] dissoc :fn-self-name)))) nil]
+                        ;; shadowing already applied
+                        (update-in [:info]
+                          #(-> % (dissoc :shadow) (dissoc :fn-self-name)))))) nil]
                  [f nil]))))
           [f nil])]
     (emit-wrap env

test/cljs/cljs/core_test.cljs

@@ -2786,7 +2786,7 @@
   (is (= (.getBasis TypeBasis) '[a b]))
   (is (= (.getBasis RecordBasis) '[c d e])))
 
-(deftest test-1212
+(deftest test-cljs-1212
   (is (= (set {:a 0 :b 0 :c 0 :d 0 :e 0 :f 0 :g 0 :h 0 :i 0})
          #{[:a 0] [:b 0] [:c 0] [:d 0] [:e 0] [:f 0] [:g 0] [:h 0] [:i 0]})))
 
@@ -2807,6 +2807,13 @@
     (is (not= tl (tagged-literal 'x "z")))
     (is (= (hash tl) (hash (tagged-literal 'x "y"))))))
 
+(defn- incme []
+  (let [incme (fn [a queue & args] (inc a))]
+    (incme 1 [1] :color "#fff")))
+
+(deftest test-cljs-1225
+  (is (= (incme) 2)))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))