diff options
| author | Hans Bolinder <[email protected]> | 2013-01-18 09:31:40 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-01-25 12:54:28 +0100 |
| commit | db770869af66309b9505d051770d8dc4d00354bf (patch) | |
| tree | eb5a9ae1d8992b2b3ae9603474f90aafac8095f1 /lib/stdlib/src/qlc_pt.erl | |
| parent | 5cab35f18ec4d05fb2dd50cbb14ad93c7831d7b9 (diff) | |
| download | otp-db770869af66309b9505d051770d8dc4d00354bf.tar.gz otp-db770869af66309b9505d051770d8dc4d00354bf.tar.bz2 otp-db770869af66309b9505d051770d8dc4d00354bf.zip | |
Make adjustments for Unicode
Diffstat (limited to 'lib/stdlib/src/qlc_pt.erl')
| -rw-r--r-- | lib/stdlib/src/qlc_pt.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/stdlib/src/qlc_pt.erl b/lib/stdlib/src/qlc_pt.erl index d441f38e44..0744a5ffb9 100644 --- a/lib/stdlib/src/qlc_pt.erl +++ b/lib/stdlib/src/qlc_pt.erl @@ -214,7 +214,7 @@ compile_messages(Forms, FormsNoShadows, Options, State) -> end, {_,BGens} = qual_fold(BGenF, [], [], FormsNoShadows, State), GenForm = used_genvar_check(FormsNoShadows, State), - ?DEBUG("GenForm = ~s~n", [catch erl_pp:form(GenForm)]), + ?DEBUG("GenForm = ~ts~n", [catch erl_pp:form(GenForm)]), WarnFun = fun(Id, LC, A) -> {tag_lines(LC, get_lcid_no(Id)), A} end, {WForms,ok} = qlc_mapfold(WarnFun, ok, Forms, State), {Es,Ws} = compile_forms(WForms ++ [GenForm], Options), @@ -337,7 +337,7 @@ compile_errors(FormsNoShadows) -> {[], _Warnings} -> []; {Errors, _Warnings} -> - ?DEBUG("got errors ~p~n", [Errors]), + ?DEBUG("got errors ~tp~n", [Errors]), lists:flatmap(fun({_File,Es}) -> Es end, Errors) end. @@ -2742,7 +2742,7 @@ family(L) -> display_forms(Forms) -> io:format("Forms ***~n"), lists:foreach(fun(Form) -> - io:format("~s~n", [catch erl_pp:form(Form)]) + io:format("~ts~n", [catch erl_pp:form(Form)]) end, Forms), io:format("End Forms ***~n"). -else. |