CLJS-1240: Add cljs.core/var?

Author: brandonbloom

src/cljs/cljs/core.cljs

@@ -908,6 +908,11 @@
   (-invoke [_ a b c d e f g h i j k l m n o p q r s t rest]
     (apply (val) a b c d e f g h i j k l m n o p q r s t rest)))
 
+(defn var?
+  "Returns true if v is of type cljs.core.Var"
+  [v]
+  (instance? cljs.core.Var v))
+
 ;;;;;;;;;;;;;;;;;;; fundamentals ;;;;;;;;;;;;;;;
 
 (declare array-seq prim-seq IndexedSeq)

test/cljs/cljs/core_test.cljs

@@ -2736,6 +2736,10 @@
       :foo #'foo-1187
       :bar #'bar-1187) []))
 
+(deftest test-var?
+  (is (var? #'inc))
+  (is (not (var? 1))))
+
 (deftest test-cljs-1187
   (testing "Internal var nodes analyzed in expression context"
     (is (= (with-out-str (print-foo-1187 :foo))