diff options
-rw-r--r-- | src/jvm/clojure/lang/RT.java | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/jvm/clojure/lang/RT.java b/src/jvm/clojure/lang/RT.java index 1f78443e..9aea629f 100644 --- a/src/jvm/clojure/lang/RT.java +++ b/src/jvm/clojure/lang/RT.java @@ -16,6 +16,7 @@ import java.util.concurrent.atomic.AtomicInteger; import java.util.concurrent.Callable; import java.util.*; import java.util.regex.Matcher; +import java.util.regex.Pattern; import java.io.*; import java.lang.reflect.Array; import java.math.BigDecimal; @@ -1402,6 +1403,10 @@ static public void print(Object x, Writer w) throws Exception{ Var v = (Var) x; w.write("#=(var " + v.ns.name + "/" + v.sym + ")"); } + else if(x instanceof Pattern) { + Pattern p = (Pattern) x; + w.write("#\"" + p.pattern() + "\""); + } else w.write(x.toString()); } //*/ |