From: Barton W. <wil...@us...> - 2006-07-29 11:42:25
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv4798/src Modified Files: scs.lisp Log Message: Applying fix suggested in bug #846078. Index: scs.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/scs.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- scs.lisp 20 Dec 2005 13:02:34 -0000 1.4 +++ scs.lisp 29 Jul 2006 11:42:20 -0000 1.5 @@ -55,5 +55,5 @@ (setq nl (cons (mul x (car l)) nl) l (cdr l)))) (defmfun $facout (x y) - (ifn (eq 'mplus (caar y)) y - (mul x (addn (mapcar #'(lambda (l) (div l x)) (cdr y)) t)))) + (if (mplusp y) (mul x (addn (mapcar #'(lambda (l) (div l x)) (cdr y)) t)) y)) + |