/* -*-c-*-
*
- * $Id: assoc.h,v 1.1 2001/01/20 11:50:58 mdw Exp $
+ * $Id: assoc.h,v 1.2 2001/01/25 21:12:22 mdw Exp $
*
* Assocation tables
*
/*----- Revision history --------------------------------------------------*
*
* $Log: assoc.h,v $
+ * Revision 1.2 2001/01/25 21:12:22 mdw
+ * Add new macro to find an association's atom key.
+ *
* Revision 1.1 2001/01/20 11:50:58 mdw
* Hash tables indexed by atoms, to avoid expense of hashing keys on each
* lookup, and to reduce storage used by key texts.
typedef struct { hash_iter i; } assoc_iter;
+#define ASSOC_ATOM(p) (((assoc_base *)(p))->a + 0)
+
/*----- Functions provided ------------------------------------------------*/
/* --- @assoc_create@ --- *