# HG changeset patch # User samer # Date 1355944590 0 # Node ID c91d53b19dbb09771dda9ad6bab76c743b508ca4 # Parent 44417282afeca807f34a90cab87ca7f8182cf2c8# Parent 02d99048fb78b086ce48705658c0061182a733a9 Meh? diff -r 44417282afec -r c91d53b19dbb qutils.pl --- 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 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 thread_self(Thread), + % thread_get_message(Thread,Msg,[deadline(Deadline)]), + % debug(qutils,'got message: ~w.',[Msg]) + % ; Msg=timeout + % ). :- else. diff -r 44417282afec -r c91d53b19dbb recorder.pl --- a/recorder.pl Wed Dec 19 19:11:19 2012 +0000 +++ b/recorder.pl Wed Dec 19 19:16:30 2012 +0000 @@ -15,6 +15,7 @@ :- dynamic start_time/1, event/2. :- use_module(library(fileutils)). +:- use_module(library(utils),[min/3]). :- use_module(reactive).