From 2bfc88db9839be54948397c8003664adca8a81e9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 27 Apr 2012 16:30:23 +0100
Subject: [PATCH] fix module dereferencing.

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

diff --git a/pl/modules.yap b/pl/modules.yap
index 27077ca53..52ae7dd34 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -137,7 +137,6 @@ module(N) :-
 '$import'([PS|L],_,_) :-
 	'$do_error'(domain_error(predicate_spec,PS),import([PS|L])).
 
-$use_preds(Imports,Publics,Mod,M) :- writeln(),fail.
 '$use_preds'(Imports,Publics,Mod,M) :- var(Imports), !,
 	'$import'(Publics,Mod,M).
 '$use_preds'(M:L,Publics,Mod,_) :-
@@ -150,6 +149,7 @@ $use_preds(Imports,Publics,Mod,M) :- writeln(),fail.
           (  lists:memberchk(N/K,Publics) -> 
              true ;
              print_message(warning,import(N/K,Mod,M,private))
+	  ),
           '$do_import'(N, K, M, Mod).
 '$use_preds'(N//K0,Publics,M,Mod) :-
 	  K is K0+2,