fixes
This commit is contained in:
parent
ee03af37fb
commit
c6d174841a
@ -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.
|
||||
|
||||
|
||||
|
@ -1,4 +1,4 @@
|
||||
1%%% -*- Mode: Prolog; -*-
|
||||
%%% -*- Mode: Prolog; -*-
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
%
|
||||
@ -567,6 +567,8 @@ init_learning :-
|
||||
set_problog_flag(alpha,Alpha)
|
||||
)
|
||||
)
|
||||
;
|
||||
true
|
||||
),
|
||||
|
||||
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
||||
|
Reference in New Issue
Block a user