/* -*-c-*-
*
- * $Id: assoc.h,v 1.1 2001/01/20 11:50:58 mdw Exp $
+ * $Id: assoc.h,v 1.3 2004/04/08 01:36:11 mdw Exp $
*
* Assocation tables
*
* MA 02111-1307, USA.
*/
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: assoc.h,v $
- * 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.
- *
- */
-
#ifndef MLIB_ASSOC_H
#define MLIB_ASSOC_H
typedef struct { hash_iter i; } assoc_iter;
+#define ASSOC_ATOM(p) (((assoc_base *)(p))->a + 0)
+
/*----- Functions provided ------------------------------------------------*/
/* --- @assoc_create@ --- *