added compiled regex literals via #"pattern"

1 files changed, 10 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java
index e2c12ae1..ef80121a 100644
--- a/src/jvm/clojure/lang/LispReader.java
+++ b/src/jvm/clojure/lang/LispReader.java
@@ -71,6 +71,8 @@ static
 

 	dispatchMacros['^'] = new MetaReader();

 	dispatchMacros['\''] = new WrappingReader(Compiler.THE_VAR);

+	dispatchMacros['"'] = new RegexReader();

+

 	}

 

 static boolean isWhitespace(int ch){

@@ -254,6 +256,14 @@ static private boolean isTerminatingMacro(int ch){
 	return (ch != '#' && ch < macros.length && macros[ch] != null);

 }

 

+static class RegexReader extends AFn{

+	static StringReader stringrdr = new StringReader();

+	public Object invoke(Object reader, Object doublequote) throws Exception{

+		String str = (String) stringrdr.invoke(reader, doublequote);

+		return Pattern.compile(str);

+	}

+}

+

 static class StringReader extends AFn{

 	public Object invoke(Object reader, Object doublequote) throws Exception{

 		StringBuilder sb = new StringBuilder();