Trace clojure 12 MethodValue return coord

flow-storm · Feb 9, 2024 · f353d32 · f353d32
1 parent 6f17faf
commit f353d32
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/jvm/clojure/lang/Compiler.java b/src/jvm/clojure/lang/Compiler.java
@@ -1384,6 +1384,7 @@ private static FnExpr buildThunk(Class c, Executable method, Symbol methodSymbol
 		ISeq body = RT.listStar(methodSymbol, params.seq());
 		String thunkName = "invoke__" + c.getSimpleName() + "_" + methodSymbol.name;
 		ISeq form = RT.list(Symbol.intern("fn"), Symbol.intern(thunkName), RT.list(params, body));
+		form = (ISeq) Utils.addCoordMeta(form, Utils.coordOf(methodSymbol));
 		return (FnExpr) analyzeSeq(C.EVAL, form, thunkName);
 	}