time_out/3: Give every alternative the full timeout time #86
This commit is contained in:
parent
f9342e835d
commit
c2bd671bfd
@ -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
|
||||||
)
|
)
|
||||||
),
|
),
|
||||||
|
Reference in New Issue
Block a user