assertz/1, asserta/1, retract/1, retractall/1 are meta-predicates (#902, #903)

2021-04-14 15:10:45 -06:00
parent 5452b55e38
commit b08442b46f
3 changed files with 34 additions and 11 deletions
--- a/src/loader.pl
+++ b/src/loader.pl
@@ -365,7 +365,6 @@ compile_declaration(discontiguous(Name/Arity), Evacuable) :-
    '$add_discontiguous_predicate'(Module, Name, Arity, Evacuable).
 compile_declaration(initialization(Goal), Evacuable) :-
    prolog_load_context(module, Module),
-    '$add_dynamic_predicate'(Module, '$initialization_goals', 1, Evacuable),
    assertz(Module:'$initialization_goals'(Goal)).
 compile_declaration(set_prolog_flag(Flag, Value), _) :-
    set_prolog_flag(Flag, Value).