* allow numbers to be optimized wtih calls to str

* fixes invoke to cljs.core/str in protocol fns
* add another trivial dce test w/ a protocol fn

Author: swannodette

src/main/clojure/cljs/core.cljc

@@ -852,12 +852,12 @@
 (core/defmacro str
   ([] "")
   ([x]
-   (if (typed-expr? &env x '#{string})
+   (if (typed-expr? &env x '#{string number})
      x
      (string-expr (core/list 'js* "cljs.core.str.cljs$core$IFn$_invoke$arity$1(~{})" x))))
   ([x & ys]
    (core/let [interpolate (core/fn [x]
-                            (if (typed-expr? &env x '#{string clj-nil})
+                            (if (typed-expr? &env x '#{string number clj-nil})
                               "~{}"
                               "cljs.core.str.cljs$core$IFn$_invoke$arity$1(~{})"))
               strs        (core/->> (core/list* x ys)

src/test/cljs_build/trivial/core2.cljs

@@ -0,0 +1,3 @@
+(ns trivial.core2)
+
+(. js/console (-lookup 1 2))

src/test/clojure/cljs/build_api_tests.clj

@@ -720,6 +720,19 @@
     (build/build (build/inputs (io/file inputs "trivial/core.cljs")) opts cenv)
     (is (< (.length out-file) 10000))))
 
+(deftest trivial-output-size-protocol
+  (let [out (.getPath (io/file (test/tmp-dir) "trivial-output-protocol-test-out"))
+        out-file (io/file out "main.js")
+        {:keys [inputs opts]} {:inputs (str (io/file "src" "test" "cljs_build"))
+                               :opts {:main 'trivial.core2
+                                      :output-dir out
+                                      :output-to (.getPath out-file)
+                                      :optimizations :advanced}}
+        cenv (env/default-compiler-env)]
+    (test/delete-out-files out)
+    (build/build (build/inputs (io/file inputs "trivial/core2.cljs")) opts cenv)
+    (is (< (.length out-file) 10000))))
+
 (deftest cljs-3255-nil-inputs-build
   (let [out (.getPath (io/file (test/tmp-dir) "3255-test-out"))
         out-file (io/file out "main.js")