From: Dan G. <dg...@us...> - 2009-12-23 20:07:08
|
Update of /cvsroot/maxima/maxima/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13842 Modified Files: limit.lisp Log Message: fix to previous commit Index: limit.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/limit.lisp,v retrieving revision 1.89 retrieving revision 1.90 diff -u -d -r1.89 -r1.90 --- limit.lisp 23 Dec 2009 19:51:38 -0000 1.89 +++ limit.lisp 23 Dec 2009 20:06:58 -0000 1.90 @@ -1258,7 +1258,7 @@ (exp (sratsimp (sdiff exp var)) (sratsimp (sdiff exp var))) (n () (not n)) (ans ())) ; This do wins by a return. - ((> ct 1) 0) ; This loop used to run up to 5 times, + ((> ct 0) 0) ; This loop used to run up to 5 times, ;; but the size of some expressions would blow up. (setq ans (no-err-sub val exp)) ;Why not do an EVENFN and ODDFN ;test here. |