Restrict Fn metadata to uses for now

jaunt-lang · Apr 6, 2016 · 47c8166 · 47c8166
1 parent f4a3bda
commit 47c8166
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
@@ -3700,11 +3700,12 @@ static Expr parse(C context, ISeq form, String name) {
 
       if(!noMeta) {
         fmeta = fmeta
-          //.without(RT.LINE_KEY)
-          //.without(RT.COLUMN_KEY)
-          //.without(RT.FILE_KEY).without(retkey)
-          .assoc(usedKey, RT.list(QUOTE, usedVars))
-          .assoc(arglistsKey, RT.list(QUOTE, arities));
+          .without(RT.LINE_KEY)
+          .without(RT.COLUMN_KEY)
+          .without(RT.FILE_KEY)
+          .without(rettag)
+          //.assoc(arglistsKey, RT.list(QUOTE, arities))
+          .assoc(usedKey, RT.list(QUOTE, usedVars));
       } else {
         fmeta = null;
       }