diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-06-17 19:42:41 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-06-17 19:42:41 +0000 |
| commit | cc69bc7471f67b036798a65c13352c542aa1bb7a (patch) | |
| tree | 215fe15cc9b483e84dc5269711aebedacae8cb3e | |
| parent | 2ede5e60184145a082270b222023b0499ec2b736 (diff) | |
filter line numbers from syntax-quoted form metadata
| -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{
|