use YAPSHAREDIR
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@509 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
c5e66af5d1
commit
51a0619671
@ -148,5 +148,9 @@ file_search_path(system, Dir) :-
|
|||||||
|
|
||||||
:- dynamic_predicate(library_directory/1, logical).
|
:- dynamic_predicate(library_directory/1, logical).
|
||||||
|
|
||||||
|
library_directory(D) :-
|
||||||
|
getenv('YAPSHAREDIR', D).
|
||||||
|
|
||||||
:- get_value(system_library_directory,D), assert(library_directory(D)).
|
:- get_value(system_library_directory,D), assert(library_directory(D)).
|
||||||
|
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user