bug fices

packages/CLPBN/clpbn.yap

@@ -21,6 +21,7 @@
 
 :- use_module(library(atts)).
 
+
 :- use_module(library(bhash)).
 
 :- use_module(library(lists)).
@@ -33,7 +34,7 @@
 
 :- attribute key/1, dist/2, evidence/1.
 
-:- use_module('clpbn/ve',
+:- use_module(clpbn/ve,
 		[ve/3,
 		 check_if_ve_done/1,
 		 init_ve_solver/4,
@@ -198,7 +199,7 @@ clpbn_flag(parameter_softening,Before,After) :- !,
 	retract(parameter_softening(Before)),
 	assert(parameter_softening(After)).
 
-clpbn_flag(use_factors,Before,After) :- !,
+clpbn_flag(use_parfactors,Before,After) :- !,
 	retract(use_parfactors(Before)),
 	assert(use_parfactors(After)).
 

packages/CLPBN/pfl.yap

@@ -248,7 +248,7 @@ This option allows exporting the current model to the href{http://graphmod.ics.u
 
 
 + export_graphviz
-This option allows exporting the factor graph's structure into a format that can be parsed by href{http://www.graphviz.org/}{Graphviz}.
+This option allows exporting the factor graph's structure into a format that xocan be parsed by href{http://www.graphviz.org/}{Graphviz}.
   + Values: `true` or `false` (default).
   + Affects: `hve`, `bp`, and `cbp`.
 
@@ -362,7 +362,7 @@ The options that are available with the `set_pfl_flag/2` predicate can be used i
    ->
 	% we're using factor language
 	% set appropriate flag
-	set_pfl_flag(use_factors,on)
+	set_pfl_flag(use_parfactors,on)
    ;
 	% we're within clp(bn), no need to do anything
 	true
@@ -504,7 +504,11 @@ new_skolem(Sk, D) :-
 	functor(Sk, N, A),
 	functor(NSk, N, A),
 	% [f,t] is special for evidence
-	( D = [f,t] -> assert((evidence(NSk, 1) :- user:NSk)) ; true ),
+	( D = [f,t] ->
+      dynamic(N/A),
+      assert((evidence(NSk, 1) :- user:NSk))
+    ;
+      true ),
 	interface_predicate(NSk),
 	assert(skolem(NSk, D)).