diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

avoid silly message

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2153 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-03-17 12:08:28 +00:00
parent 6fe55c580f
commit e13e788411
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pl/boot.yap
View File

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

2
pl/directives.yap
View File

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

6
pl/errors.yap
View File

@ -11,8 +11,11 @@
* File: errors.yap * * File: errors.yap *
* comments: error messages for 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 $ * $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 * Revision 1.85 2008/02/22 15:08:37 vsc
* Big update to support more SICStus/SWI like message handling * Big update to support more SICStus/SWI like message handling
* fix YAPSHAREDIR * fix YAPSHAREDIR
@ -235,6 +238,7 @@ print_message(Severity, Term) :-
; !, '$print_system_message'(Term, Severity, Lines) ; !, '$print_system_message'(Term, Severity, Lines)
) )
). ).
print_message(silent, _) :- !.
print_message(_, error(syntax_error(_,between(_,L,_),_,_,_,_),_)) :- !, print_message(_, error(syntax_error(_,between(_,L,_),_,_,_,_),_)) :- !,
format(user_error,'SYNTAX ERROR close to ~d~n',[L]). format(user_error,'SYNTAX ERROR close to ~d~n',[L]).
print_message(_, loading(A, F)) :- !, print_message(_, loading(A, F)) :- !,