From 8202b025abbab44935ddf352e264a1905acff511 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Sat, 13 Apr 2002 04:44:20 +0000
Subject: [PATCH] fix presentation of syntax error.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@442 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/errors.yap | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/pl/errors.yap b/pl/errors.yap
index 1ff08a234..8d2a8a9a1 100644
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -386,20 +386,20 @@ print_message(Level, Mss) :-
 	'$dump_syntax_error_term'(I1,J1,R).
 
 '$dump_error_token'(atom(A)) :- !,
-	'$format'(user_error,"~a", [A]).
+	'$format'(user_error," ~a", [A]).
 '$dump_error_token'(number(N)) :- !,
-	'$format'(user_error,"~w", [N]).
+	'$format'(user_error," ~w", [N]).
 '$dump_error_token'(var(_,S,_)) :- !,
-	'$format'(user_error,"~s ", [S]).
+	'$format'(user_error," ~s ", [S]).
 '$dump_error_token'(string(S)) :- !,
-	'$format'(user_error,"""~s""", [S]).
+	'$format'(user_error," ""~s""", [S]).
 '$dump_error_token'('(') :-
 	'$format'(user_error,"(", []).
 '$dump_error_token'(')') :-
 	'$format'(user_error," )", []).
 '$dump_error_token'(',') :-
-	'$format'(user_error," , ", []).
+	'$format'(user_error," ,", []).
 '$dump_error_token'(A) :-
-	'$format'(user_error," ~a ", [A]).
+	'$format'(user_error," ~a", [A]).