fix lack of streams message (Ulrich Neumerkel #60)

2009-05-22 19:55:18 -05:00
parent c00facdd17
commit 7304fbda13
8 changed files with 25 additions and 3 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -1337,6 +1337,20 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
      serious = TRUE;
    }
    break;
+  case RESOURCE_ERROR_MAX_STREAMS:
+    {
+      int i;
+      Term ti[1];
+
+      i = strlen(tmpbuf);
+      ti[0] = MkAtomTerm(AtomStreams);
+      nt[0] = Yap_MkApplTerm(FunctorResourceError, 1, ti);
+      tp = tmpbuf+i;
+      psize -= i;
+      fun = FunctorError;
+      serious = TRUE;
+    }
+    break;
  case RESOURCE_ERROR_STACK:
    {
      int i;