From 2d5fc6033017159af2cee5482402205234096405 Mon Sep 17 00:00:00 2001 From: vsc Date: Tue, 23 Apr 2002 22:45:21 +0000 Subject: [PATCH] fix debug info in errors.c git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@453 b08c6af1-5177-4d33-ba66-4b1c6b8b522a --- C/errors.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C/errors.c b/C/errors.c index 77decbe27..554fd2c15 100644 --- a/C/errors.c +++ b/C/errors.c @@ -363,8 +363,8 @@ Error (yap_error_number type, Term where, char *format,...) PrologMode &= ~AbortMode; PrologMode |= InErrorMode; } else { - plwrite( where, DebugPutc, 0); - where = CopyTerm(Deref(where)); + if (type != SYNTAX_ERROR) + where = CopyTerm(Deref(where)); if (IsVarTerm(where)) { /* we must be careful someone gave us a copy to a local variable */ Term t = MkVarTerm();