term_expansion can be called from the current_module, as well as from user.

This commit is contained in:
Vitor Santos Costa 2010-02-28 10:08:01 +00:00
parent db2bee6b9b
commit 8582d4ff45

View File

@ -1131,12 +1131,14 @@ access_file(F,Mode) :-
expand_term(Term,Expanded) :-
( \+ '$undefined'(term_expansion(_,_), user),
( '$current_module'(Mod), \+ '$undefined'(term_expansion(_,_), Mod),
'$notrace'(Mod:term_expansion(Term,Expanded))
; \+ '$undefined'(term_expansion(_,_), user),
'$notrace'(user:term_expansion(Term,Expanded))
;
'$expand_term_grammar'(Term,Expanded)
),
!.
!.
%