diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix retractall with numbers, Paulo Moura

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-23 00:35:14 +01:00
parent 6c021e7899
commit 749ba13d3d
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/preds.yap
View File

@ -675,6 +675,9 @@ retractall(V) :-
; ;
'$retractall_lu'(T,M) '$retractall_lu'(T,M)
) )
;
\+ callable(T) ->
'$do_error'(type_error(callable,T),retractall(T))
; ;
'$undefined'(T,M) -> '$undefined'(T,M) ->
functor(T,Na,Ar), functor(T,Na,Ar),