Let Display for functions print where it was defined

... at least when that information is available
gap-system · Oct 19, 2022 · 7b8e585 · 7b8e585
1 parent 114824d
commit 7b8e585
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/function.gi b/lib/function.gi
@@ -62,6 +62,11 @@ end);
 
 InstallMethod(Display, "for a function", [IsFunction and IsInternalRep],
 function(fun)
+    local loc;
+    loc := LocationFunc(fun);
+    if loc <> fail then
+        Print("# ", loc, "\n");
+    fi;
     Print(fun, "\n");
 end);