- Moved roledef_shift to role.c

2004-08-12 11:22:49 +00:00
parent fe960cfb6a
commit 1791699c01
3 changed files with 32 additions and 12 deletions
--- a/src/arachne.c
+++ b/src/arachne.c
@@ -80,18 +80,6 @@ mgu_iterate (const Termlist tl)
  return iterate ();
 }

-//! Yield roledef pointer for a given index
-Roledef
-roledef_shift (Roledef rd, int i)
-{
-  while (i > 0 && rd != NULL)
-    {
-      rd = rd->next;
-      i--;
-    }
-  return rd;
-}
-
 //------------------------------------------------------------------------
 // Sub
 //------------------------------------------------------------------------