ADDED: portray_clause/2, writing to a specified stream.

2020-06-13 16:45:47 +02:00
parent 2c6b615b8c
commit 44ebd894d5
2 changed files with 7 additions and 2 deletions
--- a/src/lib/format.pl
+++ b/src/lib/format.pl
@@ -74,6 +74,7 @@
                   format/2,
                   format/3,
                   portray_clause/1,
+                   portray_clause/2,
                   listing/1
                  ]).

@@ -465,8 +466,12 @@ aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

 portray_clause(Term) :-
+        current_output(Out),
+        portray_clause(Out, Term).
+
+portray_clause(Stream, Term) :-
        phrase(portray_clause_(Term), Ls),
-        maplist(write, Ls).
+        maplist(put_char(Stream), Ls).

 portray_clause_(Term) -->
        { term_variables(Term, Vs),