mod no longer errors on large args

Signed-off-by: Stuart Halloway <[email protected]>

Author: Alexander Taggart

src/clj/clojure/core.clj

@@ -3143,7 +3143,7 @@
    :static true}
   [num div] 
   (let [m (rem num div)] 
-    (if (or (zero? m) (pos? (* num div))) 
+    (if (or (zero? m) (= (pos? num) (pos? div)))
       m 
       (+ m div))))
 

test/clojure/test_clojure/numbers.clj

@@ -285,6 +285,9 @@
     ; num = 0, div != 0
     (mod 0 3) 0       ; (0 / 3) * 3 + (0 mod 3) = 0 * 3 + 0 = 0
     (mod 0 -3) 0
+
+    ; large args
+    (mod 3216478362187432 432143214) 120355456
   )
 )