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