From 8758b6de5aba6d94de4789f4ab319a5fb5bd9283 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 18 Jan 2013 14:30:10 +0000
Subject: [PATCH] improve error handling for qload

---
 C/errors.c | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/C/errors.c b/C/errors.c
index 8c7d2fe6d..4a5006a9a 100644
--- a/C/errors.c
+++ b/C/errors.c
@@ -1441,6 +1441,17 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
       serious = TRUE;
     }
     break;
+  case SAVED_STATE_ERROR:
+    {
+      int i;
+
+      i = strlen(tmpbuf);
+      nt[0] = MkAtomTerm(AtomSystemError);
+      psize -= i;
+      fun = FunctorError;
+      serious = TRUE;
+    }
+    break;
   case SYSTEM_ERROR:
     {
       int i;