- Matching is now typed.

2004-08-15 16:08:53 +00:00
parent c7e290197c
commit c3d5123ab0
5 changed files with 99 additions and 36 deletions
--- a/src/compiler.c
+++ b/src/compiler.c
@@ -701,8 +701,11 @@ protocolCompile (Symbol prots, Tac tc, Tac tcroles)
    {
      if (sys->engine == ARACHNE_ENGINE)
 	{
-	  pr->rolenames =
-	    termlistAppend (pr->rolenames, levelVar (tcroles->t1.sym));
+	  Term rolename;
+
+	  rolename = levelVar (tcroles->t1.sym);
+	  rolename->stype = termlistAdd (NULL, TERM_Agent);
+	  pr->rolenames = termlistAppend (pr->rolenames, rolename);
 	}
      else
 	{