From fe0e12b0300a8f6bc7db37bb9604df53a4f2b68f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= Date: Thu, 2 Oct 2014 14:40:45 +0100 Subject: [PATCH] store loaded files state. --- pl/load_foreign.yap | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/pl/load_foreign.yap b/pl/load_foreign.yap index 20e0ed4a2..618a07b41 100644 --- a/pl/load_foreign.yap +++ b/pl/load_foreign.yap @@ -61,15 +61,15 @@ 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_entry_for_load_foreign_files'(Entry,load_foreign_files(Objs,Libs,Entry)), + '$current_module'( M ), '$load_foreign_files'(NewObjs,NewLibs,Entry), ignore( recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _) ), ( - prolog_load_context(file, F), - prolog_load_context(module, M) + prolog_load_context(file, F) -> - ignore( recordzifnot( '$load_foreign_done', [F, M], _) ) - ; - true + ignore( recordzifnot( '$load_foreign_done', [F, M], _) ) + ; + true ), !. '$check_objs_for_load_foreign_files'(V,_,G) :- var(V), !,