diff options
author | Björn-Egil Dahlberg <[email protected]> | 2014-01-13 17:33:44 +0100 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2014-01-29 11:08:48 +0100 |
commit | 1f6c5e88f4f387cc27c9affbdf1ceaae7cfdcfd3 (patch) | |
tree | f3ae17288f22e14b5112a9f8818786cb4db9a078 /lib/compiler/src/v3_kernel_pp.erl | |
parent | 3645dc6b15d4fdd79768b92bb598c264005a8689 (diff) | |
download | otp-1f6c5e88f4f387cc27c9affbdf1ceaae7cfdcfd3.tar.gz otp-1f6c5e88f4f387cc27c9affbdf1ceaae7cfdcfd3.tar.bz2 otp-1f6c5e88f4f387cc27c9affbdf1ceaae7cfdcfd3.zip |
compiler: Squash #k_map_pair_*{} to #k_map_pair{}
Simplify compiler internals for kernel passes.
Diffstat (limited to 'lib/compiler/src/v3_kernel_pp.erl')
-rw-r--r-- | lib/compiler/src/v3_kernel_pp.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/compiler/src/v3_kernel_pp.erl b/lib/compiler/src/v3_kernel_pp.erl index e8d19336f6..edbd3f74f8 100644 --- a/lib/compiler/src/v3_kernel_pp.erl +++ b/lib/compiler/src/v3_kernel_pp.erl @@ -115,9 +115,9 @@ format_1(#k_map{es=Es}, Ctxt) -> format_hseq(Es, ",", ctxt_bump_indent(Ctxt, 1), fun format/2), $},$~ ]; -format_1(#k_map_pair_assoc{key=K,val=V}, Ctxt) -> +format_1(#k_map_pair{op=assoc,key=K,val=V}, Ctxt) -> ["~<",format(K, Ctxt),",",format(V, Ctxt),">"]; -format_1(#k_map_pair_exact{key=K,val=V}, Ctxt) -> +format_1(#k_map_pair{op=exact,key=K,val=V}, Ctxt) -> ["::<",format(K, Ctxt),",",format(V, Ctxt),">"]; format_1(#k_binary{segs=S}, Ctxt) -> ["#<",format(S, ctxt_bump_indent(Ctxt, 2)),">#"]; |