fix retractall with numbers, Paulo Moura

2014-10-23 00:35:14 +01:00 · 2014-10-23 00:35:14 +01:00 · 749ba13d3d
commit 749ba13d3d
parent 6c021e7899
1 changed files with 3 additions and 0 deletions
--- a/pl/preds.yap
+++ b/pl/preds.yap
@ -675,6 +675,9 @@ retractall(V) :-
 	 ;
 	   '$retractall_lu'(T,M)
 	 )
+	;
+	  \+ callable(T) ->
+	  '$do_error'(type_error(callable,T),retractall(T))
 	;
 	  '$undefined'(T,M) ->
 	  functor(T,Na,Ar),