use format/3 to benefit from efficiency improvements
This commit is contained in:
@@ -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),
|
||||||
|
|||||||
Reference in New Issue
Block a user