fix thread_peek_message to understand aliases

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1607 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

changes-5.1.html

@@ -16,6 +16,7 @@
 
 <h2>Yap-5.1.2:</h2>
 <ul>
+<li> FIXED: thread_peek_message should use aliases (obs Paulo Moura).</li>
 <li> FIXED: garbage collector should no rewrite cp_tr fields until
 after marking (obs Paulo Moura).</li>
 <li> FIXED: garbage collector was allowing garbage trail entries for

pl/threads.yap

@@ -362,6 +362,9 @@ thread_peek_message(Term) :-
 	'$thread_self'(Id),
 	thread_peek_message(Id, Term).
 
+thread_peek_message(Queue, Term) :-
+	recorded('$thread_alias',[Id|Queue],_), !,
+	thread_peek_message(Id, Term).
 thread_peek_message(Queue, Term) :-
 	recorded('$queue',q(Queue,Mutex,_,Key),_), !,
 	mutex_lock(Mutex),