diff options
| -rw-r--r-- | src/jvm/clojure/lang/LispReader.java | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java index 41a5eb58..5bf22e66 100644 --- a/src/jvm/clojure/lang/LispReader.java +++ b/src/jvm/clojure/lang/LispReader.java @@ -607,6 +607,10 @@ static Symbol registerArg(int n){ static class ArgReader extends AFn{ public Object invoke(Object reader, Object pct) throws Exception{ PushbackReader r = (PushbackReader) reader; + if(ARG_ENV.deref() == null) + { + return interpretToken(readToken(r, '%')); + } int ch = r.read(); unread(r, ch); //% alone is first arg |