diff options
| -rw-r--r-- | src/jvm/clojure/lang/LispReader.java | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java index d7677f7e..922d1cbf 100644 --- a/src/jvm/clojure/lang/LispReader.java +++ b/src/jvm/clojure/lang/LispReader.java @@ -679,7 +679,17 @@ public static class SyntaxQuoteReader extends AFn{ + "__" + RT.nextID() + "__auto__")));
sym = gs;
}
- else
+ else if(sym.ns == null && sym.name.endsWith("."))
+ {
+ Symbol csym = Symbol.intern(null, sym.name.substring(0, sym.name.length() - 1));
+ csym = Compiler.resolveSymbol(csym);
+ sym = Symbol.intern(null, csym.name.concat("."));
+ }
+ else if(sym.ns == null && sym.name.startsWith("."))
+ {
+ // Simply quote method names.
+ }
+ else
sym = Compiler.resolveSymbol(sym);
ret = RT.list(Compiler.QUOTE, sym);
}
|