This commit is contained in:
Vitor Santos Costa 2014-01-10 15:34:02 +00:00
parent bcc1757989
commit 2c8fcc6698
2 changed files with 3 additions and 3 deletions

View File

@ -286,5 +286,5 @@ print_message(_, Term) :-
flush_output(user_error),
'$messages':prefix(Level, LinePrefix, Stream, LinesF, Lines), !,
print_message_lines(Stream, LinePrefix, LinesF).
s

View File

@ -511,12 +511,12 @@ prolog:print_message_lines(S, kind(Kind), Lines) :- !,
],
AllLines),
print_message_lines(S, Prefix, AllLines).
prolog:print_message_lines(S, P-Opts, Lines) :- !,
prolog:print_message_lines(S, P-Opts, Lines) :-
atom(P), !,
atom_concat('~N', P, Prefix),
format(S, Prefix, Opts),
print_message_line(S, Lines, Rest),
prolog:print_message_lines(S, P-Opts, Rest)x.
prolog:print_message_lines(S, P-Opts, Rest).
prolog:print_message_lines(S, P, Lines) :-
atom(P), !,
atom_concat('~N', P, Prefix),