fix broken debugger help message.

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

changes4.3.html

@@ -16,6 +16,7 @@
 
 <h2>Yap-4.3.23:</h2>
 <ul>
+	<li>FIXED: recent change broke debugger help message (Nuno Fonseca).</li>
 	<li>UPDATE: new Logtalk version (2.14.1).</li>
 	<li>NEW: <code>call_with_args/n</code> simulates <code>call/n</code>.</li>
 	<li>FIXED: have different types for <code>Atom</code>, <code>Term</code>, and <code>Functor</code> in <code>c_interface</code>.</li>

pl/debug.yap

@@ -932,7 +932,7 @@ debugging :-
 	'$format'(user_error,"<D       depth D     <   full term~n", []),
 	'$format'(user_error,"+        spy this    -   nospy this~n", []),
 	'$format'(user_error,"^        view subg   ^^  view using~n", []),
-	'$format'(user_error,"! g execute goal~n").
+	'$format'(user_error,"! g execute goal~n", []).
 	
 '$ilgl'(C) :- '$skipeol'(C), write(user_error,'[ Illegal option. Use h for help. ]'),
 	nl(user_error), fail.

pl/errors.yap

@@ -75,9 +75,9 @@ print_message(Level, Mss) :-
 	LC is LC0+1,
 	'$format'(user_error, "~*|[ ~a ~a in module ~a, ~d msec ~d bytes ]~n", [LC, What, AbsoluteFileName,Mod,Time,Space]).
 '$do_informational_message'(M) :-
-	'$format'("[ ", []),
+	'$format'(user_error,"[ ", []),
 	'$do_print_message'(M),
-	'$format'(" ]~n", []).
+	'$format'(user_error," ]~n", []).
 
 
 %message(loaded(Past,AbsoluteFileName,user,Msec,Bytes), Prefix, Suffix) :- !,