diff options
-rw-r--r-- | src/boot.clj | 6 | ||||
-rw-r--r-- | src/jvm/clojure/lang/Numbers.java | 4 |
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; } |