fixes (rand-int 0) case

Author: thomasmulvaney

pixie/stdlib.pxi

@@ -554,7 +554,9 @@ returns true"
 (defn rand-int
   {:doc "random integer between 0 (inclusive) and n (exclusive)"}
   [n]
-  (rem (rand) n))
+  (if (zero? n)
+    0
+    (rem (rand) n)))
 
 (defn =
   {:doc "Returns true if all the arguments are equivalent. Otherwise, returns false. Uses

tests/pixie/tests/test-stdlib.pxi

@@ -330,7 +330,9 @@
 
 (t/deftest test-rand-int
   (let [vs (repeatedly 10 #(rand-int 4))]
-    (t/assert (every? #(and (>= % 0) (< % 4)) vs))))
+    (t/assert (every? #(and (>= % 0) (< % 4)) vs)))
+  (let [vs (repeatedly 10 #(rand-int 0))]
+    (t/assert (every? zero? vs))))
 
 (t/deftest test-some
   (t/assert= (some even? [2 4 6 8]) true)