use loader:strip_subst_module/4 in second module check of retract/1 (#2891, #2893)

2025-04-22 23:28:19 -07:00
parent f1793744bc
commit f496abbbef
1 changed files with 2 additions and 2 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1210,9 +1210,9 @@ assertz_(Module, Fact) :-
 retract(Clause0) :-
    loader:strip_module(Clause0, Module, Clause),
    (  Clause \= (_ :- _) ->
-       loader:strip_module(Clause, Module, Head),
+       loader:strip_subst_module(Clause, Module, InnerModule, Head),
       Body = true,
-       retract_module_clause(Head, Body, Module)
+       retract_module_clause(Head, Body, InnerModule)
    ;  Clause = (Head :- Body) ->
       retract_module_clause(Head, Body, Module)
    ).