This commit is contained in:
Vitor Santos Costa 2016-07-31 10:11:36 -05:00
parent ee03af37fb
commit c6d174841a
2 changed files with 9 additions and 3 deletions

View File

@ -237,11 +237,15 @@
%========================================================================
set_problog_path( _Path):-
retractall(problog_path(_)),
retractall(problog_path(_)),
current_prolog_flag( executable, YAP ),
file_directory_name(YAP, P1),
current_prolog_flag( home, ROOT ),
atom_concat(ROOT, '/bin', P2),
getenv('PATH',Dirs),
path_grouping( PathSep ),
atomic_list_concat( LPaths, PathSep, Dirs),
set_problog_paths( LPaths ),
set_problog_paths( [P1,P2| LPaths] ),
fail.

View File

@ -1,4 +1,4 @@
1%%% -*- Mode: Prolog; -*-
%%% -*- Mode: Prolog; -*-
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
@ -567,6 +567,8 @@ init_learning :-
set_problog_flag(alpha,Alpha)
)
)
;
true
),
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%