stdlib/src/erl_pp.erl, line 259-278: replace with

expr({'fun',_,{function,F,A},Extra}, I, Prec, Hook) ->
    [io_lib:format("% fun-info: ~w~n", [Extra]),
     "fun ",write(F),$/,write(A)];
expr({'fun',_,{function,F,A}}, I, Prec, Hook) ->
    ["fun ",write(F),$/,write(A)];
expr({'fun',_,{clauses,Cs}}, I, Prec, Hook) ->
    ["fun ",
     fun_clauses(Cs, I+4, Hook),
     nl_indent(I), "end"];
expr({'fun',_,{clauses,Cs},Extra}, I, Prec, Hook) ->
    [io_lib:format("% fun-info: ~w~n", [Extra]),
     string:chars($\s, I),
     "fun ",
     fun_clauses(Cs, I+4, Hook),
     nl_indent(I), "end"];
expr({'query',_,Lc}, I, Prec, Hook) ->
    ["query ",
     expr(Lc, I+6, 0, Hook),
     nl_indent(I), "end"];