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

modules

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-06 12:45:08 +00:00
parent f6c5a2eea1
commit 2aea33032b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/preds.yap
View File

@ -616,8 +616,7 @@ current_predicate(A,T0) :-
Defines the relation: indicator _P_ refers to a currently defined system predicate. Defines the relation: indicator _P_ refers to a currently defined system predicate.
*/ */
system_predicate(P0) :- system_predicate(P0) :-
strip_module(P0, M, P), '$yap_strip_module'(P0, M, P),
( (
P = A/Arity, ground(P) P = A/Arity, ground(P)
-> ->
@ -662,7 +661,9 @@ system_predicate(P0) :-
current_predicate(F0) :- current_predicate(F0) :-
'$yap_strip_module'(F0, M, F), '$yap_strip_module'(F0, M, F),
(var(F) -> (var(F) ->
true F = A/N,
current_predicate(A, M:S),
functor(S, A, N)
; ;
( (
functor(F,AN,2) functor(F,AN,2)