fix use of local skeletons to reload predicates (#919)

2021-04-27 02:00:54 -06:00
parent 48225c3c0a
commit 7e4cfede7d
7 changed files with 540 additions and 601 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -847,7 +847,7 @@ asserta_clause(Head, Body) :-
 asserta(Clause) :-
    (  Clause \= (_ :- _) ->
       Head = Clause,
-       Body = true,
+       Body = user:true,
       asserta_clause(Head, Body)
    ;  Clause = (Head :- Body) ->
       asserta_clause(Head, Body)
@@ -897,7 +897,7 @@ assertz_clause(Head, Body) :-
 assertz(Clause) :-
    (  Clause \= (_ :- _) ->
       Head = Clause,
-       Body = true,
+       Body = user:true,
       assertz_clause(Head, Body)
    ;  Clause = (Head :- Body) ->
       assertz_clause(Head, Body)