more string fixes and get_code

2013-12-08 19:12:24 +00:00
parent 62a6d96674
commit adea3bdb24
16 changed files with 380 additions and 168 deletions
--- a/C/errors.c
+++ b/C/errors.c
@@ -1880,6 +1880,20 @@ Yap_Error(yap_error_number type, Term where, char *format,...)
      serious = TRUE;
    }
    break;
+  case TYPE_ERROR_TEXT:
+    {
+      int i;
+      Term ti[2];
+
+      i = strlen(tmpbuf);
+      ti[0] = MkAtomTerm(AtomText);
+      ti[1] = where;
+      nt[0] = Yap_MkApplTerm(FunctorTypeError, 2, ti);
+      psize -= i;
+      fun = FunctorError;
+      serious = TRUE;
+    }
+    break;
  case TYPE_ERROR_UBYTE:
    {
      int i;