fix typo
This commit is contained in:
parent
bcc1757989
commit
2c8fcc6698
@ -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
|
||||
|
||||
|
||||
|
@ -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),
|
||||
|
Reference in New Issue
Block a user