current_thread would report an error on a non-existing id or alias.

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

changes-5.1.html

@@ -16,6 +16,8 @@
 
 <h2>Yap-5.1.2:</h2>
 <ul>
+<li> FIXED: current_thread/2 should fail if called with bad alias or
+ID (obs Paulo Moura).</li>
 <li> FIXED: correct code statistics with DL_MALLOC or SYSTEM_MALLOC.</li>
 <li> NEW: use true_file_name for file operations in system library (obs Paulo Moura).</li>
 <li> NEW: make YAP large address aware on WIN32 (should be able to

pl/threads.yap

@@ -163,8 +163,8 @@ current_thread(Tid, Status) :-
 	var(Tid), !,
 	'$cur_threads'(0, Tid, Status).
 current_thread(Tid, Status) :-
+	( atom(Tid) ; integer(Tid) ), !,
 	'$check_thread_alias'(Id0,Tid),
-	integer(Id0), !,
 	'$valid_thread'(Id0),
 	'$thr_status'(Id0, Status).
 current_thread(Tid, Status) :-