- Added some useful macros to term.h to address subparts (e.g.

TermOp1(t)). Renamed all uses.

src/compiler.c

@@ -241,7 +241,7 @@ levelFind (Symbol s, int level)
     {
       if (isTermLeaf (tl->term))
 	{
-	  if (tl->term->left.symb == s)
+	  if (TermSymb(tl->term) == s)
 	    {
 	      return tl->term;
 	    }
@@ -505,7 +505,7 @@ commEvent (int event, Tac tc)
       else
 	{
 	  /* n parameters */
-	  msg = deVar (claimbig)->right.op2;
+	  msg = TermOp2(deVar (claimbig));
 	  if (tupleCount (msg) != n)
 	    {
 	      error ("Problem with claim tuple unfolding at line %i.",
@@ -690,7 +690,7 @@ runInstanceCreate (Tac tc)
   /* first, locate the protocol */
   psym = tc->t1.tac->t1.sym;
   p = sys->protocols;
-  while (p != NULL && p->nameterm->left.symb != psym)
+  while (p != NULL && TermSymb(p->nameterm) != psym)
     p = p->next;
   if (p == NULL)
     {
@@ -703,7 +703,7 @@ runInstanceCreate (Tac tc)
   /* locate the role */
   rsym = tc->t1.tac->t2.sym;
   r = p->roles;
-  while (r != NULL && r->nameterm->left.symb != rsym)
+  while (r != NULL && TermSymb(r->nameterm) != rsym)
     r = r->next;
   if (r == NULL)
     {