===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/hol.sm1,v
retrieving revision 1.17
retrieving revision 1.19
diff -u -p -r1.17 -r1.19
--- OpenXM/src/kan96xx/Doc/hol.sm1	2004/05/13 05:52:53	1.17
+++ OpenXM/src/kan96xx/Doc/hol.sm1	2004/06/03 08:10:44	1.19
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/hol.sm1,v 1.16 2004/05/04 08:29:35 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/hol.sm1,v 1.18 2004/05/15 12:00:48 takayama Exp $
 %% hol.sm1, 1998, 11/8, 11/10, 11/14, 11/25, 1999, 5/18, 6/5. 2000, 6/8
 %% rank, rrank, characteristic
 %% This file is error clean.
@@ -14,7 +14,7 @@ $hol.sm1, basic package for holonomic systems (C) N.Ta
 message-quiet
 
 /gb.warning 0 def
-/gb.oxRingStructure [ ] def
+/gb.oxRingStructure [[ ] [ ]] def
 /rank.v [(x) (y) (z)] def   %% default value of v (variables).
 /rank.ch [ ] def  %% characteristic variety.
 /rank.verbose 0 def
@@ -922,7 +922,10 @@ message-quiet
        [vsize gtmp] toVectors /gtmp set
        ggall 0 gtmp put
     }{  } ifelse
-      /arg1 [gg dehomogenize ggall] def
+
+    gg getRing (oxRingStructure) dc /gb.oxRingStructure set
+
+    /arg1 [gg dehomogenize ggall] def
   ] pop
   popEnv
   popVariables