blob: e900bd3d497ea7d834ec1a648a50d53213a5c6f4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--- yap-6.0.2.orig/pl/consult.yap 2010-03-04 13:57:29.000000000 +1300
+++ yap-6.0.2/pl/consult.yap 2010-03-05 21:46:18.000000000 +1300
@@ -877,12 +877,12 @@
atom_concat([Path,File],PFile).
'$system_library_directories'(Dir) :-
- getenv('YAPSHAREDIR', Dir).
+ getenv('YAPSHAREDIR', Dir), !.
'$system_library_directories'(Dir) :-
get_value(system_library_directory,Dir).
'$system_library_directories'(Dir) :-
- getenv('YAPCOMMONSDIR', Dir).
+ getenv('YAPCOMMONSDIR', Dir), !.
'$system_library_directories'(Dir) :-
get_value(prolog_commons_directory,Dir).
|
GitWeb
