===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/smacro.sm1,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM/src/kan96xx/Kan/smacro.sm1	2000/01/16 07:55:41	1.2
+++ OpenXM/src/kan96xx/Kan/smacro.sm1	2004/05/13 05:33:10	1.3
@@ -1,4 +1,4 @@
-%% $OpenXM$
+%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.2 2000/01/16 07:55:41 takayama Exp $
 %%%%%% global control variables
 %%  /@@@.quiet 0 def  It is defined in scanner().
 /@@@.Dsymbol (D) def
@@ -7,6 +7,7 @@
 /@@@.hsymbol (h) def
 /@@@.esymbol (e_) def
 /@@@.Esymbol (E) def
+/@@@.Hsymbol (H) def
 
 %%% pointer to the StandardContext.
 /StandardContextp [(CurrentContextp)] system_variable def