diff options
Diffstat (limited to 'src/clj/clojure/core_print.clj')
| -rw-r--r-- | src/clj/clojure/core_print.clj | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/clj/clojure/core_print.clj b/src/clj/clojure/core_print.clj index 21af0ac9..a8a198fd 100644 --- a/src/clj/clojure/core_print.clj +++ b/src/clj/clojure/core_print.clj @@ -242,6 +242,7 @@ (defmethod print-dup java.lang.Double [o w] (print-method o w)) (defmethod print-dup clojure.lang.Ratio [o w] (print-method o w)) (defmethod print-dup java.math.BigDecimal [o w] (print-method o w)) +(defmethod print-dup clojure.lang.BigInt [o w] (print-method o w)) (defmethod print-dup java.math.BigInteger [o w] (print-method o w)) (defmethod print-dup clojure.lang.PersistentHashMap [o w] (print-method o w)) (defmethod print-dup clojure.lang.PersistentHashSet [o w] (print-method o w)) @@ -279,10 +280,14 @@ (.write w (str b)) (.write w "M")) -(defmethod print-method java.math.BigInteger [b, ^Writer w] +(defmethod print-method clojure.lang.BigInt [b, ^Writer w] (.write w (str b)) (.write w "N")) +(defmethod print-method java.math.BigInteger [b, ^Writer w] + (.write w (str b)) + (.write w "BIGINT")) + (defmethod print-method java.util.regex.Pattern [p ^Writer w] (.write w "#\"") (loop [[^Character c & r :as s] (seq (.pattern ^java.util.regex.Pattern p)) |