From 51a06196713aa516d5a9815f9dbe15e80a3e4942 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 3 Jun 2002 16:13:49 +0000
Subject: [PATCH] use YAPSHAREDIR

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@509 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/init.yap | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/pl/init.yap b/pl/init.yap
index 045f29469..f8be620a2 100644
--- a/pl/init.yap
+++ b/pl/init.yap
@@ -148,5 +148,9 @@ file_search_path(system, Dir) :-
 
 :- dynamic_predicate(library_directory/1, logical).
 
+library_directory(D) :-
+	getenv('YAPSHAREDIR', D).
+
 :- get_value(system_library_directory,D), assert(library_directory(D)).
 
+