buf: Fix two embarassing bugs found while writing Lisp bindings.

[mLib] / arena.h

diff --git a/arena.h b/arena.h
index 4b1dffe6ffd0c70231486f20183c13ce13e12632..05037f1917600ef1347f5a58a510fd8d537061cf 100644 (file)
--- a/arena.h
+++ b/arena.h
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: arena.h,v 1.2 2000/07/16 12:29:16 mdw Exp $
+ * $Id$
  *
  * Abstraction for memory allocation arenas
  *
@@ -27,17 +27,6 @@
  * MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: arena.h,v $
- * Revision 1.2  2000/07/16 12:29:16  mdw
- * Change to arena `realloc' interface, to fix a design bug.
- *
- * Revision 1.1  2000/06/17 10:37:53  mdw
- * Basic arena management.
- *
- */
-
 #ifndef MLIB_ARENA_H
 #define MLIB_ARENA_H
 
@@ -54,7 +43,7 @@
 /* --- An arena structure --- */
 
 typedef struct arena {
-  struct arena_ops *ops;
+  const struct arena_ops *ops;
 } arena;
       
 typedef struct arena_ops {