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

fix extraneous line in yes/no messages

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1082 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-06-18 15:41:19 +00:00
parent c715e145ef
commit 0b40851d2d
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/boot.yap
View File

@ -498,8 +498,6 @@ repeat :- '$repeat'.
'$is_same_tty'(user_input, user_error), !.
'$add_nl_outside_console' :-
'$format'(user_error,'~n',[]).
'$ask_again_for_another' :-
'$format'(user_error,'Action (\";\" for more choices, <return> for exit)', []),

9
pl/errors.yap
View File

@ -11,8 +11,11 @@
* File: errors.yap *
* comments: error messages for YAP *
* *
* Last rev: $Date: 2004-06-09 03:32:03 $,$Author: vsc $ *
* Last rev: $Date: 2004-06-18 15:41:19 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.51 2004/06/09 03:32:03 vsc
* fix bugs
*
* Revision 1.50 2004/04/27 16:21:25 vsc
* stupid bug
* *
@ -105,9 +108,9 @@ print_message(Level, Mss) :-
%message(loaded(Past,AbsoluteFileName,user,Msec,Bytes), Prefix, Suffix) :- !,
'$do_print_message'(no) :- !,
'$format'(user_error, 'no~n', []).
'$format'(user_error, 'no', []).
'$do_print_message'(yes) :- !,
'$format'(user_error, 'yes~n', []).
'$format'(user_error, 'yes', []).
'$do_print_message'(debug(debug)) :- !,
'$format'(user_error,'Debug mode on.',[]).
'$do_print_message'(debug(off)) :- !,