[Maxima-commits] CVS: maxima/src series.lisp,1.1.1.1,1.2

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1:/tmp/cvs-serv12995/src

Modified Files:
	series.lisp 
Log Message:
Bug [ 727542 ] powerseries wrong/fix:

Fix from Martin Rubey applied.


Index: series.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/series.lisp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- series.lisp	8 May 2000 06:09:41 -0000	1.1.1.1
+++ series.lisp	28 May 2003 17:04:05 -0000	1.2
@@ -248,8 +248,8 @@
 	    0))
 	  ((= 2 n)
 	   (psp2form (m* (m+ 1 *index)
-			 (m^ c (m* -1 (m+ 2 *index)))
-			 (m^ (m* -1 a) *index))
+			 (m^ a (m* -1 (m+ 2 *index)))
+			 (m^ (m* -1 c) *index))
 		     (if (equal m 1) *index (m* *index m))
 		     0))
 	  (t (psp2form (m* (do ((nn (f1- n) (f1- nn))