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

fix getting thread and sending it to format

This commit is contained in:
Vítor Santos Costa 2013-12-11 00:03:13 +00:00
parent e768a7e7be
commit 2f8c3d2d1b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/messages.yap
View File

@ -551,8 +551,8 @@ prefix(warning, '% ', user_error) -->
( { Id == main }
-> [ 'Warning: ', nl ]
; { atom(Id) }
-> ['Warning: [Thread ~a ]' - Id, nl ]
; ['Warning: [Thread ~d ]' - Id, nl ]
-> ['Warning: [Thread ~a ]' - [Id], nl ]
; ['Warning: [Thread ~d ]' - [Id], nl ]
).
prefix(error, ' ', user_error) -->
{ recorded(sp_info,local_sp(P,_,_,_),_) },
@ -560,8 +560,8 @@ prefix(error, ' ', user_error) -->
( { Id == main }
-> [ 'ERROR at ' ]
; { atom(Id) }
-> [ 'ERROR [Thread ~a ] at ' - Id ]
; [ 'ERROR [Thread ~d ] at ' - Id ]
-> [ 'ERROR [ Thread ~a ] at ' - [Id] ]
; [ 'ERROR [ Thread ~d ] at ' - [Id] ]
),
'$hacks':display_pc(P),
!,
@ -571,8 +571,8 @@ prefix(error, ' ', user_error) -->
( { Id == main }
-> [ 'ERROR!!', nl ]
; { atom(Id) }
-> [ 'ERROR!! [Thread ~a ]' - Id, nl ]
; [ 'ERROR!! [Thread ~d ]' - Id, nl ]
-> [ 'ERROR!! [ Thread ~a ]' - [Id], nl ]
; [ 'ERROR!! [ Thread ~d ]' - [Id], nl ]
).
prefix(banner, '', user_error) --> [].
prefix(informational, '~*|% '-[LC], user_error) -->