From 2dae7fd5ef7cfcc8bfda6a9197ab379e24013623 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 29 May 2009 10:48:40 -0500
Subject: [PATCH] fix unnecesary warnings for multifile (obs from Paulo Moura).

---
 pl/consult.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/consult.yap b/pl/consult.yap
index 506a702f1..bf4ade782 100644
--- a/pl/consult.yap
+++ b/pl/consult.yap
@@ -476,8 +476,8 @@ remove_from_path(New) :- '$check_path'(New,Path),
 	'$add_multifile'(File,Name,Arity,Module).
 
 '$add_multifile'(File,Name,Arity,Module) :-
-	recorded('$multifile_defs','$defined'(File,Name,Arity,Module), _), !,
-	print_message(warning,declaration((multifile Module:Name/Arity),ignored)).
+	recorded('$multifile_defs','$defined'(File,Name,Arity,Module), _), !.
+%	print_message(warning,declaration((multifile Module:Name/Arity),ignored)).
 '$add_multifile'(File,Name,Arity,Module) :-
 	recordz('$multifile_defs','$defined'(File,Name,Arity,Module),_), !,
 	fail.