diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

time_out/3: Give every alternative the full timeout time #86

Browse Source
This commit is contained in:
Ulrich Neumerkel
2009-05-28 01:15:02 +02:00
committed by Costa Vitor
parent f9342e835d
commit c2bd671bfd
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
library/timeout.yap
View File

@@ -34,8 +34,8 @@ time_out(Goal, Time, Result) :-
Goal, Goal,
alarm(0,_,RT)), alarm(0,_,RT)),
( var(RT) ( var(RT)
-> alarm(0,_,RT), -> alarm(0,_,_),
( true ; alarm(RT,throw(time_out),_) ) ( true ; alarm(T.UT,throw(time_out),_) )
; true ; true
) )
), ),