===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/trans/tree2polymake.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM/src/kan96xx/trans/tree2polymake.c	2003/11/24 08:16:13	1.1
+++ OpenXM/src/kan96xx/trans/tree2polymake.c	2013/09/20 05:12:24	1.3
@@ -1,5 +1,6 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/kan96xx/trans/tree2polymake.c,v 1.2 2005/07/03 11:08:54 ohara Exp $ */
 #include <stdio.h>
+#include <string.h>
 #include "../Kan/datatype.h"
 #include "../Kan/stackm.h"
 #include "../Kan/extern.h"
@@ -60,7 +61,7 @@ int arrayToPolymakeS(struct object ob,FILE2 *fp,int fo
       if (ob1.tag == Sarray) {
         r=(arrayToPolymakeS(ob1,fp,format)<0?-1:r);
       }else{
-        r=(integerToPolymakeS(ob1,fp)<0?-1:r);
+        r=(rationalToPolymakeS(ob1,fp)<0?-1:r);
         if (i != n-1) fp2fputc(' ',fp);
       }
     }
@@ -74,7 +75,7 @@ int arrayToPolymakeS(struct object ob,FILE2 *fp,int fo
         r=(arrayToPolymakeS(ob1,fp,format)<0?-1:r);
         if (i==n-1) fp2fputc('}',fp);
       }else{
-        r=(integerToPolymakeS(ob1,fp)<0?-1:r);
+        r=(rationalToPolymakeS(ob1,fp)<0?-1:r);
         if (i != n-1) fp2fputc(' ',fp);
       }
     }