use format/3 to benefit from efficiency improvements

This commit is contained in:
Markus Triska
2020-06-14 10:50:21 +02:00
parent 409d3c168d
commit 10a0f708b9

View File

@@ -460,7 +460,7 @@ portray_clause(Term) :-
portray_clause(Stream, Term) :- portray_clause(Stream, Term) :-
phrase(portray_clause_(Term), Ls), phrase(portray_clause_(Term), Ls),
maplist(put_char(Stream), Ls). format(Stream, "~s", [Ls]).
portray_clause_(Term) --> portray_clause_(Term) -->
{ term_variables(Term, Vs), { term_variables(Term, Vs),