===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/var.sm1,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM/src/kan96xx/Kan/var.sm1	1999/11/08 09:15:01	1.2
+++ OpenXM/src/kan96xx/Kan/var.sm1	2004/09/16 23:53:44	1.4
@@ -1,4 +1,4 @@
-% $OpenXM$
+% $OpenXM: OpenXM/src/kan96xx/Kan/var.sm1,v 1.3 2000/01/20 01:34:48 takayama Exp $
 %% start of var.sm1.  1997, 2/27
 %%(type in initv to initialize the variable stack and type in test.var to start a test) message
 
@@ -214,13 +214,17 @@ initv 
 %%% if you like rigorous naming system execute the following command.
 /strictMode {
 [(Strict2) 1] system_variable
-[(chattrs) 1] extension
+[(or_attrs) 1] extension
 [(chattr) 0 /arg1] extension
 [(chattr) 0 /arg2] extension
 [(chattr) 0 /arg3] extension
 [(chattr) 0 /v1] extension  %% used in join.
 [(chattr) 0 /v2] extension
 [(chattr) 0 /@.usages] extension
+[(chattr) 0 /@@@expand.arg1] extension
+[(chattr) 0 /f-expand] extension
+[(chattr) 0 /f-ans] extension
+[(chattr) 0 /in-expand] extension
 @@@.quiet.var {   }
 { (var.sm1 : Strict control of the name space is enabled. (cf. extension)) message }
 ifelse