From 91dbd60ad4aaa21c6641b398a7a5b09462fbf2e1 Mon Sep 17 00:00:00 2001
From: Tiago Gomes <tgomes@fc.up.pt>
Date: Mon, 7 Jan 2013 14:05:56 +0000
Subject: [PATCH] Allow calling set_horus_flag/2 without loading clpbn_horus

---
 packages/CLPBN/pfl.yap | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/CLPBN/pfl.yap b/packages/CLPBN/pfl.yap
index 4c2a0efc6..b36c74950 100644
--- a/packages/CLPBN/pfl.yap
+++ b/packages/CLPBN/pfl.yap
@@ -32,6 +32,9 @@
 :- reexport(library(clpbn/aggregates),
 		[avg_factors/5]).
 
+:- reexport('clpbn/horus',
+		[set_horus_flag/2]).
+
 :- ( % if clp(bn) has done loading, we're top-level
 	predicate_property(set_pfl_flag(_,_), imported_from(clpbn))
    ->