===================================================================
RCS file: /home/cvs/OpenXM/src/asir-contrib/packages/src/os_muldif.rr,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -p -r1.30 -r1.31
--- OpenXM/src/asir-contrib/packages/src/os_muldif.rr	2018/06/04 05:53:32	1.30
+++ OpenXM/src/asir-contrib/packages/src/os_muldif.rr	2018/06/13 02:09:12	1.31
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM/src/asir-contrib/packages/src/os_muldif.rr,v 1.29 2018/05/30 06:47:18 takayama Exp $ */
+/* $OpenXM: OpenXM/src/asir-contrib/packages/src/os_muldif.rr,v 1.30 2018/06/04 05:53:32 takayama Exp $ */
 /* The latest version will be at ftp://akagi.ms.u-tokyo.ac.jp/pub/math/muldif
  scp os_muldif.[dp]* ${USER}@lemon.math.kobe-u.ac.jp:/home/web/OpenXM/Current/doc/other-docs
 */
@@ -6,7 +6,7 @@
 /* #undef USEMODULE */
 
 /*             os_muldif.rr (Library for Risa/Asir) 
- *          Toshio Oshima (Nov. 2007 - Mar. 2018)
+ *          Toshio Oshima (Nov. 2007 - Jun. 2018)
  *
  *   For polynomials and differential operators with coefficients
  *   in rational funtions (See os_muldif.pdf)
@@ -463,7 +463,7 @@ extern LQS$
 static S_Fc,S_Dc,S_Ic,S_Ec,S_EC,S_Lc$
 static S_FDot$
 extern AMSTeX$
-Muldif.rr="00180601"$
+Muldif.rr="00180609"$
 AMSTeX=1$
 TeXEq=5$
 TeXLim=80$
@@ -1419,9 +1419,9 @@ def scale(L)
 	}else return T;
 	if(type(D=getopt(shift))==4){
 		D0=D[0];D1=D[1];
-	}else if(type(D)<2){
+	}else if(type(D)<2&&type(D)>=0){
 		D0=0;D1=D;
-	}
+	};
 	if(Inv==1){
 		D0+=S0;S0=-S0;
 	}