diff options
author | Fredrik Gustafsson <fredrik@erlang.org> | 2013-03-12 10:11:08 +0100 |
---|---|---|
committer | Fredrik Gustafsson <fredrik@erlang.org> | 2013-03-12 10:11:08 +0100 |
commit | 9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6 (patch) | |
tree | 2ffff9ee7c5174842646fe428150a85c24fecbf6 /lib | |
parent | f1ec39a01acbaf60ba4b39b05225d43af853ac45 (diff) | |
parent | c80de7659717c3cb3d0ec4fa49e19124f4f957f8 (diff) | |
download | otp-9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6.tar.gz otp-9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6.tar.bz2 otp-9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6.zip |
Merge branch 'ats/observer_tv_improper_lists/OTP-10931' into maint
* ats/observer_tv_improper_lists/OTP-10931:
Fix observer table viewer crash on formatting improper lists
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)]; |