From 0fa942e238f45e5886ada6e1bdc2eb84b0e02e51 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Wed, 30 Jan 2002 00:27:20 +0000
Subject: [PATCH] fix repeated import declarations

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@337 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/modules.yap | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/pl/modules.yap b/pl/modules.yap
index 2aa11bddd..81c22e430 100644
--- a/pl/modules.yap
+++ b/pl/modules.yap
@@ -251,9 +251,10 @@ module(N) :-
 	( '$check_import'(M,T,N,K) ->
 %	    '$format'(user_error,"[vsc1: Importing ~w to ~w]~n",[M:N/K,T]),
 	     ( T = user ->
-	       recordz('$import','$import'(M,user,N,K),_)
+	       ( recordzifnot('$import','$import'(M,user,N,K),_) -> write(importing(M,T,N,K)),nl
+ ; true)
              ;
-	       recorda('$import','$import'(M,T,N,K),_)
+	       ( recordaifnot('$import','$import'(M,T,N,K),_) -> write(importing(M,T,N,K)),nl ; true )
              )
 	 ;
 	    true
@@ -291,9 +292,9 @@ module(N) :-
         %            '$trace_module'(importing(M:N/K,Mod)),
 %         '$format'(user_error,"[vsc2: Importing ~w to ~w]~n",[M:N/K,T]),
 	  (Mod = user ->
-             recordz('$import','$import'(M,user,N,K),_)
+             ( recordzifnot('$import','$import'(M,user,N,K),_) -> write(importing(M,T,N,K)),nl ; true )
 	     ;
-	     recorda('$import','$import'(M,Mod,N,K),_)
+	     ( recordaifnot('$import','$import'(M,Mod,N,K),_) -> write(importing(M,T,N,K)),nl ; true )
           )
 	 ;
 	   true