From 6ec4d99d8600512eb6f59597e7755fc291a57a12 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Thu, 9 Oct 2014 10:43:44 +0100 Subject: [PATCH] allow users to load foreign code from cwd, as said in manual. --- pl/absf.yap | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/pl/absf.yap b/pl/absf.yap index d535e03c9..880549bb2 100755 --- a/pl/absf.yap +++ b/pl/absf.yap @@ -356,6 +356,8 @@ absolute_file_name(File0,File) :- '$system_library_directories'(foreign, Dir) :- getenv('YAPLIBDIR', Dirs), '$split_by_sep'(0, 0, Dirs, Dir). +% compatibility with old versions +% search the current directory first. '$system_library_directories'(commons, Dir) :- getenv('YAPCOMMONSDIR', Dirs), '$split_by_sep'(0, 0, Dirs, Dir). @@ -643,6 +645,8 @@ user:file_search_path(yap, Home) :- current_prolog_flag(home, Home). user:file_search_path(system, Dir) :- prolog_flag(host_type, Dir). +user:file_search_path(foreign, Dir) :- + working_directory(Dir,Dir). user:file_search_path(foreign, yap('lib/Yap')). user:file_search_path(path, C) :- ( getenv('PATH', A),