- Improved readability of printed claims.

- Fixed comment.

src/main.c

@@ -757,19 +757,37 @@ timersPrint (const System sys)
   anyclaims = 0;
   while (cl_scan != NULL)
     {
-      /**
-       * for now, we don't print the actual claim label.
-       *@todo When termPrint can also go to stderr, fix this.
-       */
       anyclaims = 1;
 
       eprintf ("claim\t");
+
+      /* claim label is tuple */
+      if (realTermTuple (cl_scan->label))
+	{
+	  /* modern version: claim label is tuple (protocname, label) */
+          /* first print protocol.role */
+	  termPrint (cl_scan->label->left.op1);
+	  eprintf (".");
+	  termPrint (cl_scan->rolename);
+	  eprintf ("\t");
+	  /* second print event_label */
+	  termPrint (cl_scan->type);
+	  eprintf ("_");
+	  termPrint (cl_scan->label->right.op2);
+	  eprintf ("\t");
+	}
+      else
+	{
+	  /* old-fashioned output */
 	  termPrint (cl_scan->type);
 	  eprintf ("\t");
 	  termPrint (cl_scan->rolename);
 	  eprintf (" (");
 	  termPrint (cl_scan->label);
-      eprintf (")\tfound:\t");
+          eprintf (")\t");
+	}
+      /* print counts etc. */
+      eprintf ("found:\t");
       statesFormat (cl_scan->count);
       if (cl_scan->count > 0)
 	{

src/role.h

@@ -18,7 +18,8 @@ struct claimlist
   Term type;
   //! The term element for this node.
   Term label;
-  //! The pointer to the protocol (not defined yet?)
+  //! The pointer to the protocol (not defined typically, because
+  //! at compile time of the claim the protocol structure is not known yet.)
   void *protocol;
   //! The name of the role in which it occurs.
   Term rolename;

src/todo.txt

@@ -1,3 +1,6 @@
+- Make different error codes for compilation error/ other error. This can be
+  useful for scripts. However, it might shift some constants for the Elegast
+  scripts.
 - Consider where in Arachne dependency graph is used. If this is only for
   pruning states, we can construct it there only. However, the base 'role
   defs/bindings' graph might be re-used.