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

fixes

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/ProbLog/problog/os.yap
View File

@ -238,10 +238,14 @@
set_problog_path( _Path):- 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), getenv('PATH',Dirs),
path_grouping( PathSep ), path_grouping( PathSep ),
atomic_list_concat( LPaths, PathSep, Dirs), atomic_list_concat( LPaths, PathSep, Dirs),
set_problog_paths( LPaths ), set_problog_paths( [P1,P2| LPaths] ),
fail. fail.

4
packages/ProbLog/problog_learning.yap
View File

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