diff options
Diffstat (limited to 'lib/compiler/src/v3_kernel_pp.erl')
-rw-r--r-- | lib/compiler/src/v3_kernel_pp.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/compiler/src/v3_kernel_pp.erl b/lib/compiler/src/v3_kernel_pp.erl index d1b075ce0f..fa8c67b6af 100644 --- a/lib/compiler/src/v3_kernel_pp.erl +++ b/lib/compiler/src/v3_kernel_pp.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1999-2021. All Rights Reserved. +%% Copyright Ericsson AB 1999-2023. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -139,7 +139,7 @@ format_1(#k_bin_end{}, _Ctxt) -> "#<>#"; format_1(#k_literal{val=A}, _Ctxt) when is_atom(A) -> core_atom(A); format_1(#k_literal{val=Term}, _Ctxt) -> - io_lib:format("~p", [Term]); + io_lib:format("~kp", [Term]); format_1(#k_local{name=N,arity=A}, Ctxt) -> "local " ++ format_fa_pair({N,A}, Ctxt); format_1(#k_remote{mod=M,name=N,arity=A}, _Ctxt) -> @@ -356,6 +356,8 @@ format_1(#ifun{vars=Vs,body=B}, Ctxt) -> nl_indent(Ctxt1) | format(B, Ctxt1) ]; +format_1(#k_opaque{val=V}, _Ctxt) -> + ["** Opaque: ", io_lib:write(V), " **\n"]; format_1(Type, _Ctxt) -> ["** Unsupported type: ", io_lib:write(Type) |