added unchecked-remainder

2 files changed, 14 insertions, 0 deletions

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 4aad594a..24c9d019 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -712,6 +712,12 @@
   {:inline (fn [x y] `(. clojure.lang.Numbers (unchecked_divide ~x ~y)))}
   [x y] (. clojure.lang.Numbers (unchecked_divide x y)))
 
+(defn unchecked-remainder
+  "Returns the remainder of division of x by y, both int or long. 
+  Note - uses a primitive operator subject to truncation."
+  {:inline (fn [x y] `(. clojure.lang.Numbers (unchecked_remainder ~x ~y)))}
+  [x y] (. clojure.lang.Numbers (unchecked_remainder x y)))
+
 (defn pos?
   "Returns true if num is greater than zero, else false"
   {:tag Boolean
diff --git a/src/jvm/clojure/lang/Numbers.java b/src/jvm/clojure/lang/Numbers.java
index 4a6f924c..cb140fdf 100644
--- a/src/jvm/clojure/lang/Numbers.java
+++ b/src/jvm/clojure/lang/Numbers.java
@@ -1614,6 +1614,10 @@ static public int unchecked_divide(int x, int y){
 	return x / y;
 }
 
+static public int unchecked_remainder(int x, int y){
+	return x % y;
+}
+
 static public boolean equiv(int x, int y){
 	return x == y;
 }
@@ -1717,6 +1721,10 @@ static public long unchecked_divide(long x, long y){
 	return x / y;
 }
 
+static public long unchecked_remainder(long x, long y){
+	return x % y;
+}
+
 static public boolean equiv(long x, long y){
 	return x == y;
 }