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

does not need duplcated functionality

Browse Source
This commit is contained in:
vscosta 2014-11-10 01:54:50 +00:00
parent 7094d604fb
commit 04b87d2414
2 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pl/boot.yap
View File

@ -389,16 +389,6 @@ true :- true.
\+ '$undefined'('$init_preds',prolog), \+ '$undefined'('$init_preds',prolog),
'$init_preds', '$init_preds',
fail. fail.
'$init_consult' :-
retractall(user:library_directory(_)),
'$system_library_directories'(library, D),
assert(user:library_directory(D)),
fail.
'$init_consult' :-
retractall(user:commons_directory(_)),
'$system_library_directories'(commons, D),
assert(user:commons_directory(D)),
fail.
'$init_consult'. '$init_consult'.
'$init_win_graphics' :- '$init_win_graphics' :-

14
pl/qly.yap
View File

@ -321,20 +321,6 @@ save_program(File, _Goal) :-
P \= [], P \= [],
set_value('$extend_file_search_path',[]), set_value('$extend_file_search_path',[]),
'$extend_file_search_path'(P). '$extend_file_search_path'(P).
'$init_path_extensions' :-
retractall(user:library_directory(_)),
% make sure library_directory is open.
\+ clause(user:library_directory(_),_),
'$system_library_directories'(library,D),
assert(user:library_directory(D)),
fail.
'$init_path_extensions' :-
retractall(user:library_directory(_)),
% make sure library_directory is open.
\+ clause(user:library_directory(_),_),
'$system_library_directories'(commons,D),
assert(user:commons_directory(D)),
fail.
'$init_path_extensions'. '$init_path_extensions'.
% then we can execute the programs. % then we can execute the programs.