Shorten symbol names of anonymous functions in Flambda mode

ocaml · Mar 15, 2019 · 74ae615 · 74ae615
1 parent e141d9e
commit 74ae615
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/middle_end/internal_variable_names.ml b/middle_end/internal_variable_names.ml
@@ -299,8 +299,8 @@ let anon_fn_with_loc (loc: Location.t) =
     if startchar >= 0 then Format.fprintf ppf ",%i--%i" startchar endchar in
   if loc.Location.loc_ghost then "anon_fn"
   else
-    Format.asprintf "anon_fn[%a:%i%t]"
-      Location.print_filename file line pp_chars
+    Format.asprintf "anon_fn[%s:%i%t]"
+      (Filename.basename file) line pp_chars
 
 let of_primitive : Lambda.primitive -> string = function
   | Pidentity -> pidentity