/* -----------------------------------------------------------------------------
- * $Id: QueueTemplate.h,v 1.4 1999/04/27 10:07:19 sewardj Exp $
+ * $Id: QueueTemplate.h,v 1.6 2000/04/14 15:08:14 sewardj Exp $
*
* (c) The GHC Team, 1998
*
* static void freeQueue ( Queue* q );
*
* $RCSfile: QueueTemplate.h,v $
- * $Revision: 1.4 $
- * $Date: 1999/04/27 10:07:19 $
+ * $Revision: 1.6 $
+ * $Date: 2000/04/14 15:08:14 $
*
* ------------------------------------------------------------------------*/
} Queue;
+#if MAKE_findIn
+static int mycat2(findIn,Queue)( Queue* q, Type x )
+{
+ nat i;
+ for (i = 0; i < q->len; i++)
+ if (q->elems[i] == x) return i;
+ return -1;
+}
+#endif
+
static void mycat2(init,Queue)( Queue* q )
{
q->len = 0;
}
-void mycat2(set,Queue)( Queue* q, nat i, Type x )
+static void mycat2(set,Queue)( Queue* q, nat i, Type x )
{
ASSERT(i < q->len);
q->elems[i] = x;