diff options
| -rw-r--r-- | src/boot.clj | 5 | ||||
| -rw-r--r-- | src/jvm/clojure/lang/Reflector.java | 4 |
2 files changed, 6 insertions, 3 deletions
diff --git a/src/boot.clj b/src/boot.clj index 5baf8898..ff9a0b65 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -666,6 +666,9 @@ (defn byte [#^Number x] (. x (byteValue))) +(defn char [x] + (. clojure.lang.RT (charCast x))) + (defn boolean [x] (if x (. Boolean TRUE) @@ -783,7 +786,7 @@ doto memfn read *in* time - int long float double short byte boolean + int long float double short byte boolean char aget aset aset-boolean aset-int aset-long aset-float aset-double aset-short aset-byte make-array actor actor-of ! diff --git a/src/jvm/clojure/lang/Reflector.java b/src/jvm/clojure/lang/Reflector.java index f789dbd8..0591e4f9 100644 --- a/src/jvm/clojure/lang/Reflector.java +++ b/src/jvm/clojure/lang/Reflector.java @@ -267,8 +267,8 @@ static Object boxArg(Class paramType, Object arg){ return n.doubleValue(); else if(paramType == long.class) return n.longValue(); - else if(paramType == char.class) - return (char) n.intValue(); +// else if(paramType == char.class) +// return (char) n.intValue(); else if(paramType == short.class) return n.shortValue(); else |