exo first step.

2013-01-07 09:47:14 +00:00
parent 3565a01f1e
commit f063a2bd52
12 changed files with 657 additions and 8 deletions
--- a/H/saveclause.h
+++ b/H/saveclause.h
@@ -236,6 +236,7 @@
    case _Nstop:
    case _allocate:
    case _copy_idb_term:
+    case _enter_exo:
    case _expand_index:
    case _index_blob:
    case _index_dbref:
@@ -302,6 +303,8 @@
      pc = NEXTOP(pc,llll);
      break;
      /* instructions type lp */
+    case _retry_exo:
+    case _try_exo:
    case _user_switch:
      CHECK(save_PtoOp(stream, pc->u.lp.l));
      CHECK(save_PtoPred(stream, pc->u.lp.p));
@@ -553,6 +556,7 @@
      pc = NEXTOP(pc,sssllp);
      break;
      /* instructions type x */
+    case _get_atom_exo:
    case _get_list:
    case _put_list:
    case _save_b_x: