[Maxima-commits] CVS: maxima/src asum.lisp,1.27,1.28

[Andrej V. <an...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv10018

Modified Files:
	asum.lisp 
Log Message:
Changed dosum so that sum(f(x),x,0,3/2) simplifies to f(0)+f(1).


Index: asum.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/asum.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- asum.lisp	4 Jun 2008 04:21:10 -0000	1.27
+++ asum.lisp	28 Aug 2008 09:06:45 -0000	1.28
@@ -430,7 +430,7 @@
        (prog (u *i lind l*i *hl)
 	  (setq lind (cons ind nil))
 	  (cond
-	    ((not (fixnump (setq *hl (m- hi low))))
+	    ((not (fixnump (setq *hl (mfuncall '$floor (m- hi low)))))
 	     (if evaluate-summand (setq expr (mevalsumarg expr ind low hi)))
 	     (return (cons (if sump '(%sum) '(%product))
 			   (list expr ind low hi))))