From e13e788411bc20983e02c2e42eaafd6973c24976 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 17 Mar 2008 12:08:28 +0000
Subject: [PATCH] avoid silly message

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2153 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap       | 3 +++
 pl/directives.yap | 2 ++
 pl/errors.yap     | 6 +++++-
 3 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index f17d98db4..5aa9994c0 100644
--- a/pl/boot.yap
+++ b/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).
diff --git a/pl/directives.yap b/pl/directives.yap
index 3ace083fb..f2164f52f 100644
--- a/pl/directives.yap
+++ b/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).
+
diff --git a/pl/errors.yap b/pl/errors.yap
index c70e48312..d82c60f9f 100644
--- a/pl/errors.yap
+++ b/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)) :- !,