Forgotten failure - found by #22

2009-05-29 00:15:40 +02:00 · 2009-05-29 00:15:40 +02:00 · 5760986b2f
commit 5760986b2f
parent c1dcb1d75d
1 changed files with 1 additions and 1 deletions
--- a/library/timeout.yap
+++ b/library/timeout.yap
@ -35,7 +35,7 @@ time_out(Goal, Time, Result) :-
 			alarm(0,_,RT)),
 		 (  var(RT)
 		 -> alarm(0,_,_),
-		    ( true ; alarm(T.UT,throw(time_out),_) )
+		    ( true ; alarm(T.UT,throw(time_out),_), fail )
 		 ;  true
 		 )
 	       ),