blob: 487a939962e656e02c4d916f59c607278ba423e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
--- yap-6.orig/pl/consult.yap 2010-05-12 01:53:25.000000000 +1200
+++ yap-6/pl/consult.yap 2010-05-16 09:26:41.000000000 +1200
@@ -872,9 +872,9 @@
atom_concat([Path,File],PFile).
'$system_library_directories'(Dir) :-
- getenv('YAPSHAREDIR', Dir).
+ getenv('YAPSHAREDIR', Dir), !.
'$system_library_directories'(Dir) :-
- getenv('YAPCOMMONSDIR', Dir).
+ getenv('YAPCOMMONSDIR', Dir), !.
'$system_library_directories'(Dir) :-
get_value(system_library_directory,Dir).
'$system_library_directories'(Dir) :-
|
GitWeb
