diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 3895c1d7..c08fc7fa 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -2330,31 +2330,31 @@ "Coerce to long" {:tag Long :inline (fn [x] `(. clojure.lang.RT (longCast ~x)))} - [^Number x] (. x (longValue))) + [^Number x] (clojure.lang.RT/longCast x)) (defn float "Coerce to float" {:tag Float :inline (fn [x] `(. clojure.lang.RT (floatCast ~x)))} - [^Number x] (. x (floatValue))) + [^Number x] (clojure.lang.RT/floatCast x)) (defn double "Coerce to double" {:tag Double :inline (fn [x] `(. clojure.lang.RT (doubleCast ~x)))} - [^Number x] (. x (doubleValue))) + [^Number x] (clojure.lang.RT/doubleCast x)) (defn short "Coerce to short" {:tag Short :inline (fn [x] `(. clojure.lang.RT (shortCast ~x)))} - [^Number x] (. x (shortValue))) + [^Number x] (clojure.lang.RT/shortCast x)) (defn byte "Coerce to byte" {:tag Byte :inline (fn [x] `(. clojure.lang.RT (byteCast ~x)))} - [^Number x] (. x (byteValue))) + [^Number x] (clojure.lang.RT/byteCast x)) (defn char "Coerce to char" @@ -2366,7 +2366,7 @@ "Coerce to boolean" {:tag Boolean :inline (fn [x] `(. clojure.lang.RT (booleanCast ~x)))} - [x] (if x true false)) + [x] (clojure.lang.RT/booleanCast x)) (defn number? "Returns true if x is a Number" |