Implement cljs.core/int and cljs.core/long

devnotes/corelib.org

@@ -277,7 +277,7 @@ macro currently expands into extend call
 * init-proxy
 * DONE instance?
 does what?
-* int
+* DONE int
 * int-array
 * DONE integer?
 * DONE interleave
@@ -314,7 +314,7 @@ does what?
 * load-string
 * loaded-libs
 * locking
-* TODO long
+* DONE long
 * TODO long-array
 * TODO longs
 * DONE loop

src/cljs/cljs/core.cljs

@@ -943,6 +943,16 @@ reduces them without incurring seq initialization"
     (Math/floor q)
     (Math/ceil q)))
 
+(defn int
+  "Coerce to int by stripping decimal places."
+  [x]
+  (fix x))
+
+(defn long
+  "Coerce to long by stripping decimal places. Identical to `int'."
+  [x]
+  (fix x))
+
 (defn mod
   "Modulus of num and div. Truncates toward negative infinity."
   [n d]

test/cljs/cljs/core_test.cljs

@@ -160,6 +160,15 @@
   (assert (= [[1 1] [1 2] [1 3] [2 1] [2 2] [2 3]]
              (map #(%) (for [i [1 2] j [1 2 3]] (fn [] [i j])))))
 
+  (assert (= 42 (int 42.5)))
+  (assert (integer? (int 42.5)))
+
+  (assert (= 42 (long 42.5)))
+  (assert (integer? (long 42.5)))
+
+  (assert (= -1 (int -1.5)))
+  (assert (= -9 (long -9.8)))
+
   (assert (= 2 (:b {:a 1 :b 2})))
   (assert (= 2 ('b '{:a 1 b 2})))
   (assert (= 2 ({:a 1 :b 2} :b)))