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

store loaded files state.

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-10-02 14:40:45 +01:00
parent 5bae8321d7
commit fe0e12b030
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pl/load_foreign.yap
View File

@ -61,11 +61,11 @@ load_foreign_files(Objs,Libs,Entry) :-
'$check_objs_for_load_foreign_files'(Objs,NewObjs,load_foreign_files(Objs,Libs,Entry)), '$check_objs_for_load_foreign_files'(Objs,NewObjs,load_foreign_files(Objs,Libs,Entry)),
'$check_libs_for_load_foreign_files'(Libs,NewLibs,load_foreign_files(Objs,Libs,Entry)), '$check_libs_for_load_foreign_files'(Libs,NewLibs,load_foreign_files(Objs,Libs,Entry)),
'$check_entry_for_load_foreign_files'(Entry,load_foreign_files(Objs,Libs,Entry)), '$check_entry_for_load_foreign_files'(Entry,load_foreign_files(Objs,Libs,Entry)),
'$current_module'( M ),
'$load_foreign_files'(NewObjs,NewLibs,Entry), '$load_foreign_files'(NewObjs,NewLibs,Entry),
ignore( recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _) ), ignore( recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _) ),
( (
prolog_load_context(file, F), prolog_load_context(file, F)
prolog_load_context(module, M)
-> ->
ignore( recordzifnot( '$load_foreign_done', [F, M], _) ) ignore( recordzifnot( '$load_foreign_done', [F, M], _) )
; ;