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

export patch from Paulo Moura

Browse Source
This commit is contained in:
Vitor Santos Costa 2012-10-22 15:04:52 +01:00
parent 7fa7c8b92a
commit 43c3c89f30
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/modules.yap
View File

@ -704,8 +704,9 @@ export_resource(P) :-
( recorded('$module','$module'(File,Mod,ExportedPreds),R) -> ( recorded('$module','$module'(File,Mod,ExportedPreds),R) ->
erase(R), erase(R),
recorda('$module','$module'(File,Mod,[P|ExportedPreds]),_) recorda('$module','$module'(File,Mod,[P|ExportedPreds]),_)
; ; prolog_load_context(file, File) ->
recorda('$module','$module'(user_input,Mod,[P]),_) recorda('$module','$module'(File,Mod,[P]),_)
; recorda('$module','$module'(user_input,Mod,[P]),_)
). ).
export_resource(P0) :- export_resource(P0) :-
P0 = F//N, atom(F), number(N), N >= 0, !, P0 = F//N, atom(F), number(N), N >= 0, !,
@ -714,8 +715,9 @@ export_resource(P0) :-
( recorded('$module','$module'(File,Mod,ExportedPreds),R) -> ( recorded('$module','$module'(File,Mod,ExportedPreds),R) ->
erase(R), erase(R),
recorda('$module','$module'(File,Mod,[P|ExportedPreds]),_) recorda('$module','$module'(File,Mod,[P|ExportedPreds]),_)
; ; prolog_load_context(file, File) ->
recorda('$module','$module'(user_input,Mod,[P]),_) recorda('$module','$module'(File,Mod,[P]),_)
; recorda('$module','$module'(user_input,Mod,[P]),_)
). ).
export_resource(op(Prio,Assoc,Name)) :- !, export_resource(op(Prio,Assoc,Name)) :- !,
op(Prio,Assoc,prolog:Name). op(Prio,Assoc,prolog:Name).