From 04b87d2414ca9c55d4751ebc552794947a6e5ec4 Mon Sep 17 00:00:00 2001 From: vscosta Date: Mon, 10 Nov 2014 01:54:50 +0000 Subject: [PATCH] does not need duplcated functionality --- pl/boot.yap | 10 ---------- pl/qly.yap | 14 -------------- 2 files changed, 24 deletions(-) diff --git a/pl/boot.yap b/pl/boot.yap index 0bbfea87e..da6bb5232 100644 --- a/pl/boot.yap +++ b/pl/boot.yap @@ -389,16 +389,6 @@ true :- true. \+ '$undefined'('$init_preds',prolog), '$init_preds', 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_win_graphics' :- diff --git a/pl/qly.yap b/pl/qly.yap index 0d77c6030..e20c3be39 100755 --- a/pl/qly.yap +++ b/pl/qly.yap @@ -321,20 +321,6 @@ save_program(File, _Goal) :- P \= [], set_value('$extend_file_search_path',[]), '$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'. % then we can execute the programs.