diff options
Diffstat (limited to 'lib/compiler/src/v3_kernel_pp.erl')
-rw-r--r-- | lib/compiler/src/v3_kernel_pp.erl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/compiler/src/v3_kernel_pp.erl b/lib/compiler/src/v3_kernel_pp.erl index 2c2bd498a9..d1b075ce0f 100644 --- a/lib/compiler/src/v3_kernel_pp.erl +++ b/lib/compiler/src/v3_kernel_pp.erl @@ -173,10 +173,11 @@ format_1(#k_alt{first=O,then=T}, Ctxt) -> format(O, Ctxt1), nl_indent(Ctxt1), format(T, Ctxt1)]; -format_1(#k_letrec_goto{label=Label,first=First,then=Then,ret=Rs}, Ctxt) -> +format_1(#k_letrec_goto{label=Label,vars=Vs,first=First,then=Then,ret=Rs}, Ctxt) -> Ctxt1 = ctxt_bump_indent(Ctxt, Ctxt#ctxt.item_indent), ["letrec_goto ", atom_to_list(Label), + format_args(Vs, Ctxt), nl_indent(Ctxt1), format(Then, Ctxt1), nl_indent(Ctxt1), @@ -185,8 +186,8 @@ format_1(#k_letrec_goto{label=Label,first=First,then=Then,ret=Rs}, Ctxt) -> "end", format_ret(Rs, Ctxt1) ]; -format_1(#k_goto{label=Label}, _Ctxt) -> - ["goto ",atom_to_list(Label)]; +format_1(#k_goto{label=Label,args=As}, Ctxt) -> + ["goto ",atom_to_list(Label),format_args(As, Ctxt)]; format_1(#k_select{var=V,types=Cs}, Ctxt) -> Ctxt1 = ctxt_bump_indent(Ctxt, 2), ["select ", |