fix global variables

2010-04-08 01:44:08 +01:00
parent 3fd7da94ba
commit 066603c79b
3 changed files with 13 additions and 3 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -455,6 +455,7 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
    where = TermNil;
    Yap_PrologMode &= ~AbortMode;
    Yap_PrologMode |= InErrorMode;
+    P = FAILCODE;
  } else {
    if (IsVarTerm(where)) {
      /* we must be careful someone gave us a copy to a local variable */