clarify integer predicate docstrings, formatting

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -2126,22 +2126,23 @@ reduces them without incurring seq initialization"
   (or (fn? f) (satisfies? IFn f)))
 
 (defn ^boolean integer?
-  "Returns true if n is an integer."
+  "Returns true if n is a JavaScript number with no decimal part."
   [n]
   (and (number? n)
        (not ^boolean (js/isNaN n))
        (not (identical? n js/Infinity))
        (== (js/parseFloat n) (js/parseInt n 10))))
 
 (defn ^boolean int?
-  "Return true if x is an integer"
+  "Return true if x satisfies integer? or is an instance of goog.math.Integer
+   or goog.math.Long."
   [x]
   (or (integer? x)
       (instance? goog.math.Integer x)
       (instance? goog.math.Long x)))
 
 (defn ^boolean pos-int?
-  "Return true if x is a positive integer"
+  "Return true if x satisfies int? and is positive."
   [x]
   (cond
     (integer? x) (pos? x)
@@ -2157,7 +2158,7 @@ reduces them without incurring seq initialization"
     :else false))
 
 (defn ^boolean neg-int?
-  "Return true if x is a negative integer"
+  "Return true if x satisfies int? and is positive."
   [x]
   (cond
     (integer? x) (neg? x)
@@ -2171,7 +2172,7 @@ reduces them without incurring seq initialization"
     :else false))
 
 (defn ^boolean nat-int?
-  "Return true if x is a non-negative integer"
+  "Return true if x satisfies int? and is a natural integer value."
   [x]
   (cond
     (integer? x)

src/test/cljs/cljs/predicates_test.cljs

@@ -39,19 +39,19 @@
         posi   (Integer.fromNumber posint)
         negi   (Integer.fromNumber negint)]
     [[identity  neg?  pos?   integer? int?   neg-int?  pos-int?  nat-int?]
-     [0         false false  true     true   false     false     true     ]
-     [1         false true   true     true   false     true      true     ]
-     [-1        true  false  true     true   true      false     false    ]
-     [1.0       false true   true     true   false     true      true     ]
-     [-1.0      true  false  true     true   true      false     false    ]
-     [posint    false true   true     true   false     true      true     ]
-     [negint    true  false  true     true   true      false     false    ]
-     [natl      false false  false    true   false     false     true     ]
-     [posl      false true   false    true   false     true      true     ]
-     [negl      true  false  false    true   true      false     false    ]
-     [nati      false false  false    true   false     false     true     ]
-     [posi      false true   false    true   false     true      true     ]
-     [negi      true  false  false    true   true      false     false    ]]))
+     [0         false false  true     true   false     false     true    ]
+     [1         false true   true     true   false     true      true    ]
+     [-1        true  false  true     true   true      false     false   ]
+     [1.0       false true   true     true   false     true      true    ]
+     [-1.0      true  false  true     true   true      false     false   ]
+     [posint    false true   true     true   false     true      true    ]
+     [negint    true  false  true     true   true      false     false   ]
+     [natl      false false  false    true   false     false     true    ]
+     [posl      false true   false    true   false     true      true    ]
+     [negl      true  false  false    true   true      false     false   ]
+     [nati      false false  false    true   false     false     true    ]
+     [posi      false true   false    true   false     true      true    ]
+     [negi      true  false  false    true   true      false     false   ]]))
 
 (deftest test-int-preds
   (let [[preds & rows] int-val-table]