named int and long divide unchecked-divide

2 files changed, 8 insertions, 2 deletions

diff --git a/src/boot.clj b/src/boot.clj
index 7a2ba4f7..f7958b22 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -625,6 +625,12 @@
   {:inline (fn [x y] `(. clojure.lang.Numbers (unchecked_multiply ~x ~y)))}
   [x y] (. clojure.lang.Numbers (unchecked_multiply x y)))
 
+(defn unchecked-divide
+  "Returns the 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_divide ~x ~y)))}
+  [x y] (. clojure.lang.Numbers (unchecked_divide 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 44984f06..4b673cae 100644
--- a/src/jvm/clojure/lang/Numbers.java
+++ b/src/jvm/clojure/lang/Numbers.java
@@ -1594,7 +1594,7 @@ static public int multiply(int x, int y){
 	return ret;
 }
 
-static public int divide(int x, int y){
+static public int unchecked_divide(int x, int y){
 	return x / y;
 }
 
@@ -1697,7 +1697,7 @@ static public long multiply(long x, long y){
 	return ret;
 }
 
-static public long divide(long x, long y){
+static public long unchecked_divide(long x, long y){
 	return x / y;
 }