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

allow term_expansion from system

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-06-23 11:45:18 +01:00
parent 15546096fe
commit e21526ffc8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/boot.yap
View File

@ -1164,6 +1164,8 @@ access_file(F,Mode) :-
expand_term(Term,Expanded) :- expand_term(Term,Expanded) :-
( '$current_module'(Mod), \+ '$undefined'(term_expansion(_,_), Mod), ( '$current_module'(Mod), \+ '$undefined'(term_expansion(_,_), Mod),
'$notrace'(Mod:term_expansion(Term,Expanded)) '$notrace'(Mod:term_expansion(Term,Expanded))
; \+ '$undefined'(term_expansion(_,_), system),
'$notrace'(system:term_expansion(Term,Expanded))
; \+ '$undefined'(term_expansion(_,_), user), ; \+ '$undefined'(term_expansion(_,_), user),
'$notrace'(user:term_expansion(Term,Expanded)) '$notrace'(user:term_expansion(Term,Expanded))
; ;