avoid silly message

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

pl/boot.yap

@@ -1151,3 +1151,6 @@ throw(Ball) :-
 	nb_setval('$system_mode',off),
 	( nb_getval('$trace',on) -> '$creep' ; true).
 	
+'$notrace'(G) :-
+	\+ '$undefined'(G, prolog),
+	call(G).

pl/directives.yap

@@ -1057,3 +1057,5 @@ user_defined_flag(Atom) :-
 
 '$expects_dialect'(swi) :-
 	load_files(library(swi),[silent(true),if(not_loaded)]).
+'$expects_dialect'(yap).
+

pl/errors.yap

@@ -11,8 +11,11 @@
 * File:		errors.yap						 *
 * comments:	error messages for YAP					 *
 *									 *
-* Last rev:     $Date: 2008-02-23 01:32:31 $,$Author: vsc $						 *
+* Last rev:     $Date: 2008-03-17 12:08:28 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.86  2008/02/23 01:32:31  vsc
+* fix chr bootstrap.
+*
 * Revision 1.85  2008/02/22 15:08:37  vsc
 * Big update to support more SICStus/SWI like message handling
 * fix YAPSHAREDIR
@@ -235,6 +238,7 @@ print_message(Severity, Term) :-
 	    ;   !, '$print_system_message'(Term, Severity, Lines)
 	    )
 	).
+print_message(silent, _) :-  !.
 print_message(_, error(syntax_error(_,between(_,L,_),_,_,_,_),_)) :-  !,
 	format(user_error,'SYNTAX ERROR close to ~d~n',[L]).
 print_message(_, loading(A, F)) :- !,