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

current_red

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

8
pl/preddyns.yap
View File

@ -234,10 +234,12 @@ retract(M:C,R) :- !,
'$do_error'(permission_error(modify,static_procedure,PI),retract(M:C)).
'$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) :-
functor(C, Na, Ar).
'$yap_strip_module'(C, M, C1),
functor(C1, Na, Ar).
/** @pred retractall(+ _G_) is iso