CLJS-2060: Backport CLJ-2141 Return only true/false from qualified-* predicates

Author: mfikes

src/main/cljs/cljs/core.cljs

@@ -3224,23 +3224,23 @@ reduces them without incurring seq initialization"
 
 (defn ^boolean qualified-ident?
   "Return true if x is a symbol or keyword with a namespace"
-  [x] (and (ident? x) (namespace x) true))
+  [x] (boolean (and (ident? x) (namespace x) true)))
 
 (defn ^boolean simple-symbol?
   "Return true if x is a symbol without a namespace"
   [x] (and (symbol? x) (nil? (namespace x))))
 
 (defn ^boolean qualified-symbol?
   "Return true if x is a symbol with a namespace"
-  [x] (and (symbol? x) (namespace x) true))
+  [x] (boolean (and (symbol? x) (namespace x) true)))
 
 (defn ^boolean simple-keyword?
   "Return true if x is a keyword without a namespace"
   [x] (and (keyword? x) (nil? (namespace x))))
 
 (defn ^boolean qualified-keyword?
   "Return true if x is a keyword with a namespace"
-  [x] (and (keyword? x) (namespace x) true))
+  [x] (boolean (and (keyword? x) (namespace x) true)))
 
 (defn keyword
   "Returns a Keyword with the given namespace and name.  Do not use :

src/test/cljs/cljs/predicates_test.cljs

@@ -21,9 +21,9 @@
      [[]            false    true     true     false  false    false  false         false            false          false             false           false]
      [nil           false    false    false    false  false    false  false         false            false          false             false           false]
      [{}            false    false    true     false  false    false  false         false            false          false             false           false]
-     [:foo          false    false    false    true   false    false  true          nil              false          false             true            nil]
+     [:foo          false    false    false    true   false    false  true          false            false          false             true            false]
      [::foo         false    false    false    true   false    false  false         true             false          false             false           true]
-     ['foo          false    false    false    true   false    false  true          nil              true           nil               false           false]
+     ['foo          false    false    false    true   false    false  true          false            true           false             false           false]
      ['foo/bar      false    false    false    true   false    false  false         true             false          true              false           false]
      [uuid          false    false    false    false  true     false  false         false            false          false             false           false]
      [(array)       false    false    true     false  false    false  false         false            false          false             false           false]