* cleanup safe-test?

* show that type inference for a crypto.subtle call works

Author: swannodette

src/main/clojure/cljs/compiler.cljc

@@ -641,7 +641,8 @@
 
 (defn safe-test? [env e]
   (let [tag (ana/infer-tag env e)]
-    (or ('#{boolean seq js/Boolean} tag) (truthy-constant? e))))
+    (or ('#{boolean seq} (ana/js-prim-ctor->tag tag tag))
+        (truthy-constant? e))))
 
 (defmethod emit* :if
   [{:keys [test then else env unchecked]}]

src/test/clojure/cljs/externs_infer_tests.clj

@@ -163,6 +163,11 @@
               (env/with-compiler-env (env/default-compiler-env)
                 (analyze (ana/empty-env) '(let [x js/Number]
                                             (.isNaN x 1)))))
+          :tag)))
+  (is (= 'js/Promise
+        (-> (binding [ana/*cljs-ns* ana/*cljs-ns*]
+              (env/with-compiler-env (env/default-compiler-env)
+                (analyze (ana/empty-env) '(.generateKey js/crypto.subtle))))
           :tag))))
 
 (deftest test-externs-infer