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

fix system_predicate/1 and $system_predicate/1.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@168 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-10-04 16:17:42 +00:00
parent 4688551043
commit 8cc0f4e803
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/utils.yap
View File

@ -363,14 +363,16 @@ current_predicate(M:F) :- % module specified
current_predicate(F) :- % only for the predicate
'$current_predicate3'(F).
system_predicate(P) :-
'$mod_switch'(prolog,'$current_predicate_no_modules'(A,T)),
\+ '$hidden'(A).
system_predicate(A,P) :-
'$mod_switch'(prolog,'$current_predicate_no_modules'(A,T)),
\+ '$hidden'(A).
'$system_predicate'(Pred) :-
'$flags'(Pred,Flags,_),
Flags /\ 8'40000 =\= 0.
system_predicate(P) :- '$system_predicate'(P).
'$current_predicate_no_modules'(A,T) :-
'$current_predicate'(A,Arity),
functor(T,A,Arity),