From 8c2dd1f847e229facd930fd9cd999338b6ad6142 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Thu, 12 Apr 2012 17:17:21 +0100
Subject: [PATCH] fix bad call for parameters.

---
 packages/CLPBN/clpbn/ground_factors.yap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/CLPBN/clpbn/ground_factors.yap b/packages/CLPBN/clpbn/ground_factors.yap
index 964a940fa..1ec748b43 100644
--- a/packages/CLPBN/clpbn/ground_factors.yap
+++ b/packages/CLPBN/clpbn/ground_factors.yap
@@ -110,8 +110,9 @@ find_factors(K) :-
 	\+ currently_defined(K1),
 	find_factors(K1).
 
-add_factor(factor(Type, _Id, Ks, _, CPT, Constraints), Ks) :-
+add_factor(factor(Type, _Id, Ks, _, Phi, Constraints), Ks) :-
 	F = f(Type, Ks, CPT),
+	( is_list(Phi) -> CPT = Phi ; call(user:Phi, CPT) ),
 	run(Constraints),
 	\+ f(Type, Ks, CPT),
 	assert(F).