===================================================================
RCS file: /home/cvs/OpenXM/src/k097/debug/ahg2.k,v
retrieving revision 1.1.1.1
retrieving revision 1.3
diff -u -p -r1.1.1.1 -r1.3
--- OpenXM/src/k097/debug/ahg2.k	1999/10/08 02:12:16	1.1.1.1
+++ OpenXM/src/k097/debug/ahg2.k	2001/01/08 05:26:51	1.3
@@ -4,6 +4,8 @@
 /*  toric の generator を求める関数.
     A-hypergeometric の indicial ideal を求める関数.
 */
+load("indexed.k");
+
 ShimomuraSpecial = true ; OnePath= true;
 Vvv = false;
 SetRingVariables_Verbose = false;
@@ -222,7 +224,7 @@ def zindicial0(input,n,m) {
 def zrho(f,n) {
   local ans,i,top,w,rz;
   ans = 0;
-  rz = Ringp(f);
+  rz = GetRing(f);
   while(true) {
     if ( f == Poly("0")) sm1(" exit ");
     top = Init(f);