diff --git a/pack.pl b/pack.pl index 6df9e30..20c74b2 100755 --- a/pack.pl +++ b/pack.pl @@ -1,5 +1,5 @@ name(logicmoo_utils). -version('3.1.4'). +version('3.1.5'). title('Common predicates that are used throughout LogicMOO Software'). keywords([local_scoping,utilities,debugging,loop_checking]). author( 'Douglas Miles', 'http://www.linkedin.com/in/logicmoo' ). diff --git a/prolog/logicmoo_startup.pl b/prolog/logicmoo_startup.pl index bbf0fe4..b448b8b 100755 --- a/prolog/logicmoo_startup.pl +++ b/prolog/logicmoo_startup.pl @@ -899,7 +899,7 @@ init_why(Phase, Why):- %wemsg("%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%%"), %wemsg("%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%%"), - wemsg(init_why(Phase, Why)), + %wemsg(init_why(Phase, Why)), set_prolog_flag(current_phase, Phase), %wemsg("%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%%"), %wemsg("%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%~%%%%"),!, @@ -1981,12 +1981,13 @@ %======================================= % These are mainly so we can later understand the restore phasing +/* :- initialization(nop(wemsg(init_phase(program))),program). :- initialization((wemsg(init_phase(after_load))),after_load). :- initialization(nop(wemsg(init_phase(restore))),restore). :- initialization((wemsg(init_phase(restore_state))),restore_state). :- initialization(nop(wemsg(init_phase(prepare_state))),prepare_state). - +*/ %= Register a hook after restore :- initialization(nop(init_why(during_boot,restore)),restore).