use strip module in retract/1, a meta-predicate

2021-11-24 19:00:52 -07:00
parent 10bb6ab3bb
commit b551ef315f
1 changed files with 8 additions and 7 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -964,13 +964,14 @@ retract_clause(Head, Body) :-
 :- meta_predicate retract(0).

 retract(Clause0) :-
-    strip_module(Clause0, Module, Clause),
-    (   Clause = (Head :- Body) ->
-        true
-    ;   Head = Clause,
-        Body = true
-    ),
-    retract_clause(Module:Head, Body).
+    loader:strip_module(Clause0, Module, Clause),
+    (  Clause \= (_ :- _) ->
+       Head = Clause,
+       Body = true,
+       retract_module_clause(Head, Body, Module)
+    ;  Clause = (Head :- Body) ->
+       retract_module_clause(Head, Body, Module)
+    ).


 :- meta_predicate retractall(0).