diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle alias

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-11-04 22:32:03 +00:00
parent 98b4f64b40
commit 4818d28b0b
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/messages.yap
View File

@ -522,6 +522,8 @@ prefix(warning, '% ', user_error) -->
{ thread_self(Id) }, { thread_self(Id) },
( { Id == main } ( { Id == main }
-> [ 'Warning: ', nl ] -> [ 'Warning: ', nl ]
; { atom(Id) }
-> ['Warning: [Thread ~a ]' - Id, nl ]
; ['Warning: [Thread ~d ]' - Id, nl ] ; ['Warning: [Thread ~d ]' - Id, nl ]
). ).
prefix(error, ' ', user_error) --> prefix(error, ' ', user_error) -->
@ -529,6 +531,8 @@ prefix(error, ' ', user_error) -->
{ thread_self(Id) }, { thread_self(Id) },
( { Id == main } ( { Id == main }
-> [ 'ERROR at ' ] -> [ 'ERROR at ' ]
; { atom(Id) }
-> [ 'ERROR [Thread ~a ] at ' - Id ]
; [ 'ERROR [Thread ~d ] at ' - Id ] ; [ 'ERROR [Thread ~d ] at ' - Id ]
), ),
'$hacks':display_pc(P), '$hacks':display_pc(P),
@ -538,6 +542,8 @@ prefix(error, ' ', user_error) -->
{ thread_self(Id) }, { thread_self(Id) },
( { Id == main } ( { Id == main }
-> [ 'ERROR!!', nl ] -> [ 'ERROR!!', nl ]
; { atom(Id) }
-> [ 'ERROR!! [Thread ~a ]' - Id, nl ]
; [ 'ERROR!! [Thread ~d ]' - Id, nl ] ; [ 'ERROR!! [Thread ~d ]' - Id, nl ]
). ).
prefix(banner, '', user_error) --> []. prefix(banner, '', user_error) --> [].