Fixing minor portability issues

This commit is contained in:
Paulo Moura
2010-09-25 04:09:06 +01:00
parent 8cf9568c8b
commit c37a62b2d8
5 changed files with 149 additions and 127 deletions

View File

@@ -312,14 +312,16 @@
% general yap modules
:- use_module(library(system)).
:- problog_define_flag(optimization, problog_flag_validate_atom, 'optimization algorithm [local/global]', global, dtproblog).
:- problog_define_flag(forest_type, problog_flag_validate_atom, 'type of BDD forest [dependent/independent]', dependent, dtproblog).
:- initialization((
problog_define_flag(optimization, problog_flag_validate_atom, 'optimization algorithm [local/global]', global, dtproblog),
problog_define_flag(forest_type, problog_flag_validate_atom, 'type of BDD forest [dependent/independent]', dependent, dtproblog)
)).
init_dtproblog :-
problog_control(off,find_decisions),
problog_control(off,internal_strategy).
problog_control(off,find_decisions),
problog_control(off,internal_strategy).
:- init_dtproblog.
:- initialization(init_dtproblog).
:- op( 550, yfx, :: ).
@@ -359,7 +361,7 @@ get_ground_strategy(_,never).
% Internal strategy representation
% for NON-GROUND strategies
% e.g. 1 :: market(guy) for ? :: market(P)
:- dynamic non_ground_strategy/2.
:- dynamic(non_ground_strategy/2).
% Get Strategy
strategy(_,_,_) :-