From 9ab7ab0a5e324d7102e3f9dd2e1b7d548b927239 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Tue, 3 Apr 2012 16:24:14 +0100
Subject: [PATCH] fix possible error in modules.

---
 pl/modules.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/modules.yap b/pl/modules.yap
index c7c335257..4773b6785 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -765,7 +765,7 @@ export_list(Module, List) :-
 	functor(G,N0,K0),
 	G=..[N0|Args],
 	G1=..[N1|Args],
-	recordaifnot('$import','$import'(ModR,Mod,G,G1,N0,K0),_), !,
+	( recordaifnot('$import','$import'(ModR,Mod,G,G1,N0,K0),_) -> true ; true ),         
 	'$add_to_imports'(Tab, Mod, ModR).
 
 % I assume the clause has been processed, so the