Fix retractall/1 predicate to retract both facts and rules

2021-05-12 23:46:05 +01:00
parent 39aebd7144
commit fb29830521
1 changed files with 1 additions and 1 deletions
--- a/src/lib/builtins.pl
+++ b/src/lib/builtins.pl
@@ -1016,7 +1016,7 @@ retract(Clause) :-
 :- meta_predicate retractall(0).

 retractall(Head) :-
-   retract((Head :- _)),
+   retract_clause(Head, _),
   false.
 retractall(_).