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

current_red

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-31 10:48:53 +00:00
parent 0671a1623c
commit 73f6c456ae
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pl/preddyns.yap
View File

@ -235,9 +235,11 @@ retract(M:C,R) :- !,
'$fetch_predicate_indicator_from_clause'((C :- _), M:Na/Ar) :- '$fetch_predicate_indicator_from_clause'((C :- _), M:Na/Ar) :-
!, !,
functor(C, Na, Ar). '$yap_strip_module'(C, M, C1),
functor(C1, Na, Ar).
'$fetch_predicate_indicator_from_clause'(C, M:Na/Ar) :- '$fetch_predicate_indicator_from_clause'(C, M:Na/Ar) :-
functor(C, Na, Ar). '$yap_strip_module'(C, M, C1),
functor(C1, Na, Ar).
/** @pred retractall(+ _G_) is iso /** @pred retractall(+ _G_) is iso