diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make sure environment variables are consulted first.

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-05 08:33:40 +00:00
parent e92107e4cc
commit e4f3a127e0
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pl/consult.yap
View File

@ -878,11 +878,10 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$system_library_directories'(Dir) :- '$system_library_directories'(Dir) :-
getenv('YAPSHAREDIR', Dir). getenv('YAPSHAREDIR', Dir).
'$system_library_directories'(Dir) :-
get_value(system_library_directory,Dir).
'$system_library_directories'(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) :- '$system_library_directories'(Dir) :-
get_value(prolog_commons_directory,Dir). get_value(prolog_commons_directory,Dir).

2
pl/init.yap
View File

@ -116,7 +116,7 @@ lists:member(X,[_|L]) :-
:- ['protect.yap']. :- ['protect.yap'].
version(yap,[5,1]). version(yap,[6,0]).
system_mode(verbose,on) :- set_value('$verbose',on). system_mode(verbose,on) :- set_value('$verbose',on).
system_mode(verbose,off) :- set_value('$verbose',off). system_mode(verbose,off) :- set_value('$verbose',off).