===================================================================
RCS file: /home/cvs/OpenXM/src/k097/debug/toric0.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/toric0.k	1999/10/08 02:12:15	1.1.1.1
+++ OpenXM/src/k097/debug/toric0.k	2001/01/08 05:26:52	1.3
@@ -6,6 +6,7 @@
     A-hypergeometric の Fourier 変換の indicial を求める関数.
 */
 
+load("indexed.k");
 
 def toric0_toMonom(aa,i,offset, ring)
 {
@@ -213,7 +214,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);