===================================================================
RCS file: /home/cvs/OpenXM/src/k097/simple.y,v
retrieving revision 1.1.1.1
retrieving revision 1.4
diff -u -p -r1.1.1.1 -r1.4
--- OpenXM/src/k097/simple.y	1999/10/08 02:12:14	1.1.1.1
+++ OpenXM/src/k097/simple.y	2002/11/28 01:25:36	1.4
@@ -1,4 +1,4 @@
-
+/* $OpenXM: OpenXM/src/k097/simple.y,v 1.3 2001/01/13 12:40:56 takayama Exp $ */
 /* simple.y 1996, 1/1 --- 1/6 */
 /* simple.y.ccc,  1996, 4/1 --- */
 %{
@@ -93,8 +93,9 @@ return :
   ;
 
 break : BREAK  { pkkan(" exit "); }
+;
 
-list_prefix 
+list_prefix  
   :
     '['  { pkkan("[ "); }
   ;
@@ -145,7 +146,7 @@ for
   : for_prefix curryBrace
                { pkkan("} %% end of B part. {B}\n"); 
                  pkkan(" 2 1 roll] {exec} map pop\n} loop %%end of for\n"); }
-
+;
 PSfor_prefix
   : PSFOR '(' ID '=' exp ';'
      { pkkan("%%PSfor initvalue.\n (integer) data_conversion \n");
@@ -192,7 +193,7 @@ load :
   | LOAD ID              {   loadFile($2);  }
   | LOAD QUOTE           {   loadFile($2);  }
   | LOAD '[' QUOTE ']'   {   loadFileWithCpp($3); }
-
+;
 sm1ArgList :
   | sm1ArgList ',' QUOTE  { pkkan(" "); printObjectSymbol($3); pkkan(" "); }
   | QUOTE                 { pkkan(" "); printObjectSymbol($1); pkkan(" "); }
@@ -460,13 +461,6 @@ class_definition
 	/* debug */ K00foo1();
         K00toPrimitiveClass();
       }
-  |
-    class_definition_prefix  globalstatements '}'
-      { pkkan(" PrimitiveContextp setcontext ");
-	K00putIncetanceVariable(IEXIT," ");
-	/* debug */ K00foo1();
-	K00toPrimitiveClass();
-      }
   ;
 
 class_definition_prefix
@@ -486,12 +480,16 @@ class_definition_prefix
 	  K00putIncetanceVariable(IRESET," ");
 	}
       }
-
+;
 incetance_variables
   : LOCAL incetance_variables_list ';'
       {
 	K00putIncetanceVariable(IEXIT," ");
       }
+  | LOCAL ';'
+      {
+	K00putIncetanceVariable(IEXIT," ");
+      }
   ;
 incetance_variables_list
   : incetance_variables_list ',' ID
@@ -502,7 +500,7 @@ incetance_variables_list
     {
       K00putIncetanceVariable(IPUT,objectSymbolToString($1));
     }
-
+;
 operatorfunctionHead
   : DEF OPERATOR ID 
         { pkkan("/"); printObjectSymbol($3); pkkan(" {\n"); ips($3);