===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/smacro.sm1,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -p -r1.6 -r1.7
--- OpenXM/src/kan96xx/Kan/smacro.sm1	2004/09/10 13:20:23	1.6
+++ OpenXM/src/kan96xx/Kan/smacro.sm1	2004/09/16 23:53:44	1.7
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.5 2004/09/09 03:14:46 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.6 2004/09/10 13:20:23 takayama Exp $
 %%%%%% global control variables
 %%  /@@@.quiet 0 def  It is defined in scanner().
 /@@@.Dsymbol (D) def
@@ -13,6 +13,10 @@
 /StandardContextp [(CurrentContextp)] system_variable def
 /null 0 (null) data_conversion def
 
+/makeInfix {
+  [(or_attr) 4   4 -1 roll ] extension
+} def
+
 %%%%%%%%%%%%%%%%%%%%%%  usages %%%%%%%%%%%%%%%%%%%%
 /@.usages [[( ) [(gate keeper)]] ] def
 /putUsages {  
@@ -72,7 +76,8 @@
 /?
 {
    show_systemdictionary
-   (-- ?? : to see macro dictionary --)
+   (-- ?? : to see macro dictionary  --)
+   (--  [(keyword in regular expression)] usages ::    --)
    message
    $-- (keyWord) usage  to see the usages. Data type of (xxxyyy) is string.--$
      message
@@ -95,7 +100,7 @@
    print  newline ;
 } def
 
-/. {expand} def
+/. { dup tag 3 eq { exec } {expand} ifelse } def
 
 
 /false 0 def