diff options
| author | Christophe Grand <christophe@cgrand.net> | 2010-04-30 11:25:20 +0200 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-06-03 21:20:02 -0400 |
| commit | edbc2cad32350492eee0cdafc24b6ec3b3ec6105 (patch) | |
| tree | 002a98d083dbc2905522db40cfdf40e4694d9843 | |
| parent | a3f2c4e584905cb5132cda14399818309f6c6bd0 (diff) | |
make RT/print print Pattern literals
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -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()); } //*/ |