Remove some trace tells

d'oh
This commit is contained in:
Jarvis Carroll 2025-08-22 19:59:47 +10:00
parent 51463b8b74
commit 1d1e735b16

View File

@ -1273,7 +1273,6 @@ make_arg_fields(ScrollWin, GridSz, Args, NS, J) ->
lists:map(MakeArgField, Args). lists:map(MakeArgField, Args).
make_unnamed_fields(ScrollWin, InnerSz, Elems, NS, J) -> make_unnamed_fields(ScrollWin, InnerSz, Elems, NS, J) ->
tell(info, "ta", []),
ChooseName = ChooseName =
fun fun
(Ann = {_, _, T}) when is_atom(T) -> (Ann = {_, _, T}) when is_atom(T) ->
@ -1284,9 +1283,7 @@ make_unnamed_fields(ScrollWin, InnerSz, Elems, NS, J) ->
(Ann = {_, _, {T, _}}) when is_atom(T) -> (Ann = {_, _, {T, _}}) when is_atom(T) ->
{atom_to_list(T), Ann} {atom_to_list(T), Ann}
end, end,
tell(info, "tb", []),
WithNames = lists:map(ChooseName, Elems), WithNames = lists:map(ChooseName, Elems),
tell(info, "tc", []),
make_arg_fields(ScrollWin, InnerSz, WithNames, NS, J). make_arg_fields(ScrollWin, InnerSz, WithNames, NS, J).
fill() -> fill() ->