[Maxima-commits] CVS: maxima/src limit.lisp,1.64,1.65

[Dan G. <dg...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv30794

Modified Files:
	limit.lisp 
Log Message:
src/limit.lisp:
o simplimlin: avoid trisplit when arg is real pos
   fixes [ 2650081 ] integrate(atan(y),y,x,inf) loops endlessly


Index: limit.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/limit.lisp,v
retrieving revision 1.64
retrieving revision 1.65
diff -u -d -r1.64 -r1.65
--- limit.lisp	15 Feb 2009 20:58:08 -0000	1.64
+++ limit.lisp	1 Mar 2009 16:24:51 -0000	1.65
@@ -2534,6 +2534,7 @@
 		       (log-form `((%log) ,arg))
 		       ((rp . ip) (if (or (and (mnump arglim)
 					       (ratgreaterp arglim 0))
+					  (eq arglim '$zeroa)
 					  (eq arglim '$inf))	; if limit is real pos
 				      (cons arglim 0)		; avoid asking user q's
 				    (trisplit log-form))))	; otherwise find real part