From 326583c727f3942062e0544c13032fe3f3264c8d Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 18 May 2006 16:46:43 +0000
Subject: [PATCH] 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 | 2 ++
 pl/threads.yap   | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/changes-5.1.html b/changes-5.1.html
index a91faff76..93fe73db7 100644
--- a/changes-5.1.html
+++ b/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
diff --git a/pl/threads.yap b/pl/threads.yap
index 9d3699b30..76a107f21 100644
--- a/pl/threads.yap
+++ b/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) :-