make operators defined within a module local to the module, operators in header are still global to every module, though (UN #131).

This commit is contained in:
Vitor Santos Costa
2009-11-17 00:59:06 +00:00
parent ce5ae8b972
commit f7214090cb
2 changed files with 5 additions and 1 deletions

View File

@@ -95,6 +95,10 @@ op(P,T,V) :-
'$op2'(P, T, A),
'$opl'(P, T, As).
'$op2'(P,T,A) :-
atom(A),
prolog_load_context(module, Mod), Mod \= user, !,
'$opdec'(P,T,A,Mod).
'$op2'(P,T,A) :-
atom(A), !,
'$opdec'(P,T,A,prolog).