restore [o|i]ip zeroing to trust and fix '$get_clause_p'/3 (#2238)

2023-12-20 20:45:11 -07:00
parent 44a61fa72c
commit 46e432c4d9
5 changed files with 86 additions and 75 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1239,7 +1239,10 @@ call_retract_helper(Head, Body, P, Module) :-
    ;  ClauseQualifier = Module
    ),
    ClauseQualifier:'$clause'(Head, Body),
-    '$get_clause_p'(Head, P, Module).
+    % ensure '$get_clause_p'/3 is not the last clause so it can
+    % recover the choice point of '$clause' if necessary.
+    '$get_clause_p'(Head, P, Module),
+    true.

 call_retract(Head, Body, Name, Arity, Module) :-
    findall(P, builtins:call_retract_helper(Head, Body, P, Module), Ps),