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

$meta_predicate should be in user.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@715 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-12-03 06:06:24 +00:00
parent 9bb13a1381
commit 763b59bb05
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/modules.yap
View File

@ -430,7 +430,7 @@ module(N) :-
% directive now meta_predicate Ps :- $meta_predicate(Ps).
:- dynamic user:'$meta_predicate'/4.
:- dynamic_predicate('$meta_predicate'/4,logical).
'$meta_predicate'((P,Ps), M) :- !,
'$meta_predicate'(P, M),
@ -440,8 +440,8 @@ module(N) :-
'$meta_predicate'(P, M1) :-
functor(P,F,N),
( M1 = prolog -> M = _ ; M1 = M),
( retractall(user:'$meta_predicate'(F,M,N,_)), fail ; true),
asserta(user:'$meta_predicate'(F,M,N,P)),
( retractall('$meta_predicate'(F,M,N,_)), fail ; true),
asserta('$meta_predicate'(F,M,N,P)),
'$flags'(P, M1, Fl, Fl),
NFlags is Fl \/ 0x200000,
'$flags'(P, M1, Fl, NFlags).
@ -452,7 +452,7 @@ module(N) :-
%
'$module_u_vars'(H,UVars,M) :-
functor(H,F,N),
user:'$meta_predicate'(F,M,N,D), !,
'$meta_predicate'(F,M,N,D), !,
'$module_u_vars'(N,D,H,UVars).
'$module_u_vars'(_,[],_).
@ -471,7 +471,7 @@ module(N) :-
'$meta_expansion'(Mod,MP,G,G1,HVars) :-
functor(G,F,N),
user:'$meta_predicate'(F,Mod,N,D), !,
'$meta_predicate'(F,Mod,N,D), !,
functor(G1,F,N),
% '$format'(user_error,"[expanding ~w:~w in ~w",[Mod,G,MP]),
'$meta_expansion_loop'(N,D,G,G1,HVars,MP).