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

fix clause/3 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@601 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-09-23 13:43:47 +00:00
parent d4b8acf1fd
commit edee8a955f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/preds.yap
View File

@ -229,6 +229,8 @@ assert(C,R) :-
'$current_module'(M),
'$assert_dynamic'(C,M,last,R,assert(C,R)).
clause(M:P,Q) :- !,
'$clause'(P,M,Q).
clause(V,Q) :-
'$current_module'(M),
'$clause'(V,M,Q).
@ -245,7 +247,7 @@ clause(V,Q) :-
'$recordedp'(Mod:P,(P:-Q),_).
'$clause'(P,M,Q) :-
'$some_recordedp'(M:P), !,
'$recordedp'(M:P,(P:-Q),_).
'$recordedp'(M:P,(P:-Q),_).
'$clause'(P,M,Q) :-
( '$system_predicate'(P,M) -> true ;
'$number_of_clauses'(P,M,N), N > 0 ),
@ -253,8 +255,10 @@ clause(V,Q) :-
'$do_error'(permission_error(access,private_procedure,Name/Arity),
clause(M:P,Q)).
clause(M:P,Q,R) :- !,
'$clause'(P,M,Q,R).
clause(V,Q,R) :-
'$current_module'(V,M,Q,R),
'$current_module'(M),
'$clause'(V,M,Q,R).
'$clause'(V,M,Q,R) :- var(V), !,