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

remove unnecessary code

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-06-17 11:03:13 +01:00
parent cf90ace3e1
commit 67ba23efdd
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pl/consult.yap
View File

@ -794,24 +794,17 @@ absolute_file_name(File,Opts,TrueFileName) :-
'$find_in_path'(user,_,user_input, _) :- !. '$find_in_path'(user,_,user_input, _) :- !.
'$find_in_path'(user_input,_,user_input, _) :- !. '$find_in_path'(user_input,_,user_input, _) :- !.
'$find_in_path'(library(F0),_,_, _) :- '$find_in_path'(library(F0),_,_, _) :-
'$cat_file_name'(F0,F),
% make sure library_directory is open. % make sure library_directory is open.
\+ clause(user:library_directory(_),_), \+ clause(user:library_directory(_),_),
'$system_library_directories'(D), '$system_library_directories'(D),
assert(user:library_directory(D)), assert(user:library_directory(D)),
fail. fail.
'$find_in_path'(commons(F0),_,_, _) :- '$find_in_path'(commons(F0),_,_, _) :-
'$cat_file_name'(F0,F),
% make sure library_directory is open. % make sure library_directory is open.
\+ clause(user:commons_directory(_),_), \+ clause(user:commons_directory(_),_),
'$system_commons_directories'(D), '$system_commons_directories'(D),
assert(user:commons_directory(D)), assert(user:commons_directory(D)),
fail. fail.
'$find_in_path'(library(File0),Opts,NewFile, Call) :- !,
'$dir_separator'(D),
'$cat_file_name'(File0,File),
atom_codes(A,[D]),
'$extend_path_directory'(library, A, File, Opts, NewFile, Call).
'$find_in_path'(S, Opts, NewFile, Call) :- '$find_in_path'(S, Opts, NewFile, Call) :-
S =.. [Name,File0], !, S =.. [Name,File0], !,
'$dir_separator'(D), '$dir_separator'(D),