diff options
author | Fredrik Gustafsson <fredrik@erlang.org> | 2013-02-28 09:39:43 +0100 |
---|---|---|
committer | Fredrik Gustafsson <fredrik@erlang.org> | 2013-02-28 09:39:43 +0100 |
commit | 715339824e815e15d7ab396e219ef3135392be23 (patch) | |
tree | d6eb604bd467a61a6d46bb0e9c48b4b0164a5362 /lib | |
parent | 042c41766e393539e7facf5ae85747870e6510d1 (diff) | |
parent | c80de7659717c3cb3d0ec4fa49e19124f4f957f8 (diff) | |
download | erlang-715339824e815e15d7ab396e219ef3135392be23.tar.gz |
Merge branch 'ats/observer_tv_improper_lists' into master-pu
Diffstat (limited to 'lib')
-rw-r--r-- | lib/observer/src/observer_tv_table.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/observer/src/observer_tv_table.erl b/lib/observer/src/observer_tv_table.erl index 5d1ab2e946..83619414ad 100644 --- a/lib/observer/src/observer_tv_table.erl +++ b/lib/observer/src/observer_tv_table.erl @@ -784,8 +784,10 @@ format_list(List) -> make_list([Last]) -> [format(Last), $]]; +make_list([Head|Tail]) when is_list(Tail) -> + [format(Head), $,|make_list(Tail)]; make_list([Head|Tail]) -> - [format(Head), $,|make_list(Tail)]. + [format(Head), $|, format(Tail), $]]. map_printable_list([$\n|Cs]) -> [$\\, $n|map_printable_list(Cs)]; |