Mercurial > hg > reactive

diff qutils.pl @ 15:c91d53b19dbb tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Meh?
author samer
date Wed, 19 Dec 2012 19:16:30 +0000
parents 44417282afec 02d99048fb78
children
line wrap: on
line diff
--- a/qutils.pl	Wed Dec 19 19:11:19 2012 +0000
+++ b/qutils.pl	Wed Dec 19 19:16:30 2012 +0000
@@ -35,12 +35,17 @@
 :- if((current_prolog_flag(version,Version),Version<60102)).
 
 get_message_or_timeout(Deadline,Msg) :- 
-	(	get_time(Now), Now<Deadline
-	->	thread_self(Thread),
-		thread_get_message(Thread,Msg,[deadline(Deadline)]),
-		debug(qutils,'got message: ~w.',[Msg])
-	;	Msg=timeout
-	).
+	thread_self(Thread),
+	(	thread_get_message(Thread,Msg,[deadline(Deadline)]) 
+	->	debug(qutils,'got message: ~w.',[Msg])
+	;	Msg=timeout).
+
+	%	(	get_time(Now), Now<Deadline
+	%	->	thread_self(Thread),
+	%		thread_get_message(Thread,Msg,[deadline(Deadline)]),
+	%		debug(qutils,'got message: ~w.',[Msg])
+	%	;	Msg=timeout
+	%	).
 
 :- else.