From 716f80d4c80113cfe59da398597debdd717b1bd1 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Thu, 9 Oct 2014 10:44:37 +0100 Subject: [PATCH] ugh, did not allow loading more than a file. --- pl/load_foreign.yap | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/pl/load_foreign.yap b/pl/load_foreign.yap index dbaddc3d4..70dc5234d 100644 --- a/pl/load_foreign.yap +++ b/pl/load_foreign.yap @@ -52,18 +52,13 @@ YAP also supports the SWI-Prolog interface to loading foreign code: */ -load_foreign_files(_Objs,_Libs,_Entry) :- - prolog_load_context(file, F), - prolog_load_context(module, M), - recorded( '$load_foreign_done', [F, M0], _), !, - '$import_foreign'(F, M0, M). 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 ), + recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _), '$load_foreign_files'(NewObjs,NewLibs,Entry), - ignore( recordzifnot( '$foreign', M:'$foreign'(Objs,Libs,Entry), _) ), ( prolog_load_context(file, F) ->