catch errors thrown from tabling Worker (#1526, #1888)

2023-07-18 12:10:27 -06:00
parent 42a50474da
commit db43d461b9
1 changed files with 3 additions and 1 deletions
--- a/src/lib/tabling.pl
+++ b/src/lib/tabling.pl
@@ -164,7 +164,9 @@ activate(Wrapper,Worker,T) :-

 delim(Wrapper,Worker,Table) :-
 %   debug(tabling, 'ACT: ~p on ~p', [Wrapper, Table]),
-    reset(Worker,SourceCall,Continuation),
+    catch(reset(Worker,SourceCall,Continuation),
+          _,
+          fail),
   ( Continuation = none ->
     (	 add_answer(Table,Wrapper)
     ->	 true %debug(tabling, 'ADD: ~p', [Wrapper])