diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-01-15 17:59:26 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-01-29 11:08:48 +0100 |
| commit | f95c907a0fda5d185c895bfb43cd2a76e46b7e81 (patch) | |
| tree | 81991b378a10853fbd34f14f8378e7c097821e01 /lib/hipe/cerl | |
| parent | 1ebfc08a004c530faa592a09cf101036329b18fb (diff) | |
| download | otp-f95c907a0fda5d185c895bfb43cd2a76e46b7e81.tar.gz otp-f95c907a0fda5d185c895bfb43cd2a76e46b7e81.tar.bz2 otp-f95c907a0fda5d185c895bfb43cd2a76e46b7e81.zip | |
hipe: Update cerl pretty printer
Diffstat (limited to 'lib/hipe/cerl')
| -rw-r--r-- | lib/hipe/cerl/cerl_prettypr.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/hipe/cerl/cerl_prettypr.erl b/lib/hipe/cerl/cerl_prettypr.erl index 60926e16e1..ee5b41207b 100644 --- a/lib/hipe/cerl/cerl_prettypr.erl +++ b/lib/hipe/cerl/cerl_prettypr.erl @@ -64,7 +64,7 @@ try_body/1, try_vars/1, try_evars/1, try_handler/1, tuple_es/1, type/1, values_es/1, var_name/1, - map_es/1, map_pair_assoc_es/1, map_pair_exact_es/1 + map_es/1, map_pair_es/1 ]). -define(PAPER, 76). @@ -605,13 +605,13 @@ lay_map(Node, Ctxt) -> floating(text("}~")))). lay_map_pair_assoc(Node, Ctxt) -> - [K,V] = map_pair_assoc_es(Node), + [K,V] = map_pair_es(Node), beside(floating(text("::<")), beside(lay(K,Ctxt),beside(floating(text(",")), beside(lay(V,Ctxt), floating(text(">")))))). lay_map_pair_exact(Node, Ctxt) -> - [K,V] = map_pair_exact_es(Node), + [K,V] = map_pair_es(Node), beside(floating(text("~<")), beside(lay(K,Ctxt),beside(floating(text(",")), beside(lay(V,Ctxt), floating(text(">")))))). |