From b53ca0ed7b26ebe72d0effcfa036b3f86d7cba85 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 17 Jan 2002 19:42:50 +0000
Subject: [PATCH] fix some crashes on abort

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@307 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/errors.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C/errors.c b/C/errors.c
index 10eebeca0..726f98155 100644
--- a/C/errors.c
+++ b/C/errors.c
@@ -315,7 +315,8 @@ Error (yap_error_number type, Term where, char *format,...)
   /* disallow recursive error handling */
   if (PrologMode & InErrorMode)
     return(P);
-  where = Deref(where);
+  if (type != PURE_ABORT)
+    where = Deref(where);
   if (IsVarTerm(where)) {
     /* we must be careful someone gave us a copy to a local variable */
     Term t = MkVarTerm();