From 39a825e85f724260fd9b20bda07f289c4c3ab37d Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 17 Sep 2002 05:55:14 +0000
Subject: [PATCH] fix backtracking in syntax error.

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

diff --git a/pl/errors.yap b/pl/errors.yap
index e77cc76ab..4d2af19a9 100644
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -494,11 +494,11 @@ print_message(Level, Mss) :-
 	'$format'(user_error," ~s ", [S]).
 '$dump_error_token'(string(S)) :- !,
 	'$format'(user_error," ""~s""", [S]).
-'$dump_error_token'('(') :-
+'$dump_error_token'('(') :- !,
 	'$format'(user_error,"(", []).
-'$dump_error_token'(')') :-
+'$dump_error_token'(')') :- !,
 	'$format'(user_error," )", []).
-'$dump_error_token'(',') :-
+'$dump_error_token'(',') :- !,
 	'$format'(user_error," ,", []).
 '$dump_error_token'(A) :-
 	'$format'(user_error," ~a", [A]).