make rl not deadlock under SIGINT

2011-03-01 12:31:19 +00:00
parent 73541f506f
commit b868d85ac8
9 changed files with 22 additions and 20 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -517,6 +517,7 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
      error_exit_yap (1);
    }
  case PURE_ABORT:
+    nt[0] = MkAtomTerm(AtomDAbort);
    fun = FunctorVar;
    serious = TRUE;
    break;