removing residual debugging comments from format.pl
This commit is contained in:
@@ -513,12 +513,10 @@ portray_clause(Stream, Term) :-
|
|||||||
phrase_to_stream(portray_clause_(Term), Stream),
|
phrase_to_stream(portray_clause_(Term), Stream),
|
||||||
flush_output(Stream).
|
flush_output(Stream).
|
||||||
|
|
||||||
% called once.
|
|
||||||
portray_clause_(Term) -->
|
portray_clause_(Term) -->
|
||||||
{ unique_variable_names(Term, VNs) },
|
{ unique_variable_names(Term, VNs) },
|
||||||
portray_(Term, VNs), ".\n".
|
portray_(Term, VNs), ".\n".
|
||||||
|
|
||||||
% mysteriously called twice, the second time with the truncated B3.
|
|
||||||
unique_variable_names(Term, VNs) :-
|
unique_variable_names(Term, VNs) :-
|
||||||
term_variables(Term, Vs),
|
term_variables(Term, Vs),
|
||||||
foldl(var_name, Vs, VNs, 0, _).
|
foldl(var_name, Vs, VNs, 0, _).
|
||||||
|
|||||||
Reference in New Issue
Block a user