atom_oncat was not allocating memory right

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@353 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-02-11 20:22:15 +00:00
parent 90356f9993
commit 0dbc5373b4
7 changed files with 22 additions and 13 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -344,6 +344,8 @@ Error (yap_error_number type, Term where, char *format,...)
    unify(t, where);
    where = Deref(where);
  }
+  /* Exit Abort Mode, if we were there */
+  PrologMode &= ~AbortMode;
  PrologMode |= InErrorMode;
  where = CopyTerm(where);
  va_start (ap, format);