get rid of silly compilation messages in CLPQR

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@271 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

docs/yap.tex

@@ -8,9 +8,9 @@
 @c @setchapternewpage odd
 @c %**end of header
 
-@set VERSION 4.3.20
-@set EDITION 4.1.0
-@set UPDATED July 2001
+@set VERSION 4.3.21
+@set EDITION 4.1.1
+@set UPDATED January 2002
 
 @c Index for C-Prolog compatible predicate
 @defindex cy

misc/Yap.spec

@@ -1,6 +1,6 @@
 Name: Yap
 Summary: Prolog Compiler
-Version: 4.3.20
+Version: 4.3.21
 Packager:     Vitor Santos Costa <vitor@cos.ufrj.br>
 Release: 1
 Source: http://www.ncc.up.pt/~vsc/Yap/Yap4.3/%{name}-%{version}.tar.gz

pl/errors.yap

@@ -56,7 +56,7 @@ print_message(informational,M) :-
 print_message(warning,M) :-
 	format(user_error,"[ Warning: ", []),
 	'$do_print_message'(M),
-	format(user_error," ]", []).
+	format(user_error," ]~n", []).
 print_message(help,M) :-
 	format(user_error,"help on ~p",[M]).
 
@@ -65,6 +65,9 @@ print_message(help,M) :-
 	format(user_error,"[ The debugger will first creep -- showing everything (trace) ]~n",[]).
 '$do_print_message'(format(Msg, Args)) :- !,
 	format(user_error,Msg,Args).
+'$do_print_message'(import(Pred,To,From,private)) :-
+	format(user_error,"importing private predicate ~w:~w to ~w",
+	[From,Pred,To]).
 '$do_print_message'(Messg) :-
 	format(user_error,"~q",Messg).
 

pl/modules.yap

@@ -245,8 +245,7 @@ module(N) :-
 	'$use_preds'(Ps,Publics,Mod,M).
 '$use_preds'(N/K,Publics,M,Mod) :-
     (  '$member'(N/K,Publics) -> true ;
-		format(user_error,'[ Warning: there is no exported predicate ~w in module ~w]~n',
-			   [N/K,M])
+	print_message(warning,import(N/K,Mod,M,private))
     ),
     ( '$check_import'(M,Mod,N,K) -> 
 	%	     format(user_error,'[ Importing ~w to ~w]~n',[M:N/K,Mod]),