flags etc

This commit is contained in:
Vítor Santos Costa
2015-06-19 01:12:05 +01:00
parent b93f10fe07
commit 0889596e8b
10 changed files with 530 additions and 533 deletions

View File

@@ -608,7 +608,7 @@ prolog:print_message_lines(S, P, Lines) :-
print_message_line(S, [flush], []) :- !,
flush_output(S).
print_message_line(S, [], []) :- !,
nl(S).
format(S, '~N', []).
print_message_line(S, [nl|T], T) :- !,
nl(S).
print_message_line(S, [begin(_,_)|T0], T) :- !,
@@ -625,7 +625,7 @@ print_message_line(S, [Fmt|T0], T) :-
prefix(help, '', user_error) --> [].
prefix(query, '', user_error) --> [].
prefix(debug, '', user_output) --> [].
prefix(debug, '', user_error) --> [].
prefix(warning, '', user_error) -->
{ thread_self(Id) },
( { Id == main }
@@ -683,3 +683,7 @@ pred_arity(H,Name,Arity) :-
@}
@}
*/