Fix retractall/1 predicate to retract both facts and rules
This commit is contained in:
@@ -1016,7 +1016,7 @@ retract(Clause) :-
|
|||||||
:- meta_predicate retractall(0).
|
:- meta_predicate retractall(0).
|
||||||
|
|
||||||
retractall(Head) :-
|
retractall(Head) :-
|
||||||
retract((Head :- _)),
|
retract_clause(Head, _),
|
||||||
false.
|
false.
|
||||||
retractall(_).
|
retractall(_).
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user