make sure we separate betwen async exceptions and synchroneous.

2010-12-04 19:05:13 +00:00
parent c6f41e2970
commit 8db05c883b
7 changed files with 36 additions and 4 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -455,7 +455,9 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
    where = TermNil;
    Yap_PrologMode &= ~AbortMode;
    Yap_PrologMode |= InErrorMode;
-    Yap_signal(YAP_FAIL_SIGNAL);
+    /* make sure failure will be seen at next port */
+    if (Yap_PrologMode & AsyncIntMode)
+      Yap_signal(YAP_FAIL_SIGNAL);
    P = FAILCODE;
  } else {
    if (IsVarTerm(where)) {