===================================================================
RCS file: /home/cvs/OpenXM/src/k097/d.h,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- OpenXM/src/k097/d.h	2005/06/09 04:47:16	1.4
+++ OpenXM/src/k097/d.h	2005/06/16 05:07:24	1.5
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/k097/d.h,v 1.3 2000/12/10 02:21:45 takayama Exp $ */
+/* $OpenXM: OpenXM/src/k097/d.h,v 1.4 2005/06/09 04:47:16 takayama Exp $ */
 /* d.h;*/
 /*  from stackm.h */
 
@@ -56,6 +56,8 @@ struct object{         /* must be compatible with stac
   union cell rc;          /* right cell */
   struct object *attr;
 };
+
+#define OINIT { .attr = NULL }
 
 typedef struct Object * objectp;   /* cf. 65p of Schreiner. */
 #define YYSTYPE objectp