CLJ-2259 Remove unnecessary bigdec? predicate added in 1.9

puredanger · stuarthalloway · commit b98ba848d048 · 2017-10-31T09:47:42.000-04:00
Signed-off-by: Stuart Halloway &lt;stu@cognitect.com&gt;
diff --git a/changes.md b/changes.md
@@ -29,7 +29,7 @@ Specs rely heavily on predicates and many new type and value oriented predicates
 
 * `boolean?`
 * `int?` `pos-int?` `neg-int?` `nat-int?`
-* `double?` `bigdec?`
+* `double?`
 * `ident?` `simple-ident?` `qualified-ident?`
 * `simple-symbol?` `qualified-symbol?`
 * `simple-keyword?` `qualified-keyword?`
diff --git a/pom.xml b/pom.xml
@@ -41,7 +41,7 @@
     <dependency>
       <groupId>org.clojure</groupId>
       <artifactId>spec.alpha</artifactId>
-      <version>0.1.134</version>
+      <version>0.1.143</version>
     </dependency>
     <dependency>
       <groupId>org.clojure</groupId>
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -1420,11 +1420,6 @@
   {:added "1.9"}
   [x] (instance? Double x))
 
-(defn bigdec?
-  "Return true if x is a BigDecimal"
-  {:added "1.9"}
-  [x] (instance? java.math.BigDecimal x))
-
 ;;
 
 (defn complement
diff --git a/test/clojure/test_clojure/predicates.clj b/test/clojure/test_clojure/predicates.clj
@@ -147,23 +147,23 @@
         barray (byte-array 0)
         uri (java.net.URI. "http://clojure.org")]
     ['
-     [identity   int?  pos-int?  neg-int?  nat-int?  double? boolean? indexed? seqable? ident? uuid? bigdec? inst? uri?  bytes?]
-     [0          true  false     false     true      false   false    false    false    false  false false   false false false]
-     [1          true  true      false     true      false   false    false    false    false  false false   false false false]
-     [-1         true  false     true      false     false   false    false    false    false  false false   false false false]
-     [1.0        false false     false     false     true    false    false    false    false  false false   false false false]
-     [true       false false     false     false     false   true     false    false    false  false false   false false false]
-     [[]         false false     false     false     false   false    true     true     false  false false   false false false]
-     [nil        false false     false     false     false   false    false    true     false  false false   false false false]
-     [{}         false false     false     false     false   false    false    true     false  false false   false false false]
-     [:foo       false false     false     false     false   false    false    false    true   false false   false false false]
-     ['foo       false false     false     false     false   false    false    false    true   false false   false false false]
-     [0.0M       false false     false     false     false   false    false    false    false  false true    false false false]
-     [0N         false false     false     false     false   false    false    false    false  false false   false false false]
-     [uuid       false false     false     false     false   false    false    false    false  true  false   false false false]
-     [uri        false false     false     false     false   false    false    false    false  false false   false true  false]
-     [now        false false     false     false     false   false    false    false    false  false false   true  false false]
-     [barray     false false     false     false     false   false    false    true     false  false false   false false true]]))
+     [identity   int?  pos-int?  neg-int?  nat-int?  double? boolean? indexed? seqable? ident? uuid? decimal? inst? uri?  bytes?]
+     [0          true  false     false     true      false   false    false    false    false  false false    false false false]
+     [1          true  true      false     true      false   false    false    false    false  false false    false false false]
+     [-1         true  false     true      false     false   false    false    false    false  false false    false false false]
+     [1.0        false false     false     false     true    false    false    false    false  false false    false false false]
+     [true       false false     false     false     false   true     false    false    false  false false    false false false]
+     [[]         false false     false     false     false   false    true     true     false  false false    false false false]
+     [nil        false false     false     false     false   false    false    true     false  false false    false false false]
+     [{}         false false     false     false     false   false    false    true     false  false false    false false false]
+     [:foo       false false     false     false     false   false    false    false    true   false false    false false false]
+     ['foo       false false     false     false     false   false    false    false    true   false false    false false false]
+     [0.0M       false false     false     false     false   false    false    false    false  false true     false false false]
+     [0N         false false     false     false     false   false    false    false    false  false false    false false false]
+     [uuid       false false     false     false     false   false    false    false    false  true  false    false false false]
+     [uri        false false     false     false     false   false    false    false    false  false false    false true  false]
+     [now        false false     false     false     false   false    false    false    false  false false    true  false false]
+     [barray     false false     false     false     false   false    false    true     false  false false    false false true]]))
 
 (deftest test-preds
   (let [[preds & rows] pred-val-table]
