From: Andrej V. <an...@us...> - 2007-12-11 00:07:27
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv9978/src Modified Files: psolve.lisp Log Message: Fix for bug 1845379. Index: psolve.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/psolve.lisp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- psolve.lisp 24 Mar 2007 23:14:21 -0000 1.6 +++ psolve.lisp 11 Dec 2007 00:07:23 -0000 1.7 @@ -164,8 +164,8 @@ b2))) 1 nil)) - (and (equal r 0) (go l0)) (setq r (simpnrt r 2)) + (and (equal r 0) (go l0)) (and (complicated r) (setq r (adispline r))) (and (complicated tr2) (setq tr2 (adispline tr2))) (setq tr1 |