diff options
| author | Björn Gustavsson <[email protected]> | 2011-02-02 10:20:20 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-02-02 10:20:20 +0100 |
| commit | 99f7b4e9acba5525f5390526bbb4baf17625c43b (patch) | |
| tree | 77d947c121941a932d40caf8d4605ceafec24f2a /lib/compiler | |
| parent | 8749970bd0163623cddebf46fa6438f75042d40b (diff) | |
| download | otp-99f7b4e9acba5525f5390526bbb4baf17625c43b.tar.gz otp-99f7b4e9acba5525f5390526bbb4baf17625c43b.tar.bz2 otp-99f7b4e9acba5525f5390526bbb4baf17625c43b.zip | |
v3_kernel_pp: Add support for pretty-printing #k_literal{} records
Diffstat (limited to 'lib/compiler')
| -rw-r--r-- | lib/compiler/src/v3_kernel_pp.erl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/compiler/src/v3_kernel_pp.erl b/lib/compiler/src/v3_kernel_pp.erl index 18cb3edc20..9bd13f7032 100644 --- a/lib/compiler/src/v3_kernel_pp.erl +++ b/lib/compiler/src/v3_kernel_pp.erl @@ -113,6 +113,8 @@ format_1(#k_bin_int{size=Sz,unit=U,flags=Fs,val=Val,next=Next}, Ctxt) -> [format_bin_seg_1(S, Ctxt), format_bin_seg(Next, ctxt_bump_indent(Ctxt, 2))]; format_1(#k_bin_end{}, _Ctxt) -> "#<>#"; +format_1(#k_literal{val=Term}, _Ctxt) -> + io_lib:format("~p", [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) -> |