diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/jvm/clojure/lang/LispReader.java | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/jvm/clojure/lang/LispReader.java b/src/jvm/clojure/lang/LispReader.java index adb76f0a..36402c56 100644 --- a/src/jvm/clojure/lang/LispReader.java +++ b/src/jvm/clojure/lang/LispReader.java @@ -655,9 +655,13 @@ static class SyntaxQuoteReader extends AFn{ ret = RT.list(Compiler.QUOTE, form);
if(form instanceof IObj && ((IObj) form).meta() != null)
- return RT.list(WITH_META, ret, syntaxQuote(((IObj) form).meta()));
- else
- return ret;
+ {
+ //filter line numbers
+ IPersistentMap newMeta = ((IObj) form).meta().without(RT.LINE_KEY);
+ if(newMeta.count() > 0)
+ return RT.list(WITH_META, ret, syntaxQuote(((IObj) form).meta()));
+ }
+ return ret;
}
private static ISeq sqExpandList(ISeq seq) throws Exception{
|