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

fix bug in public directive.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-06-13 01:45:03 +01:00
parent c67cac0a36
commit b57e809adb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/preds.yap
View File

@ -757,7 +757,7 @@ dynamic_predicate(P,Sem) :-
'$public'([H|L], M) :- !, '$public'(H, M), '$public'(L, M). '$public'([H|L], M) :- !, '$public'(H, M), '$public'(L, M).
'$public'(A//N1, Mod) :- integer(N1), !, '$public'(A//N1, Mod) :- integer(N1), !,
N is N1+2, N is N1+2,
'$public'(A//N, Mod). '$public'(A/N, Mod).
'$public'(A/N, Mod) :- integer(N), atom(A), !, '$public'(A/N, Mod) :- integer(N), atom(A), !,
functor(T,A,N), functor(T,A,N),
'$do_make_public'(T, Mod). '$do_make_public'(T, Mod).