From: Andrej V. <an...@us...> - 2007-07-18 09:42:04
|
Update of /cvsroot/maxima/maxima/share/linearalgebra In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv29212 Modified Files: mring.lisp Log Message: Fix a typo. Index: mring.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/linearalgebra/mring.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- mring.lisp 17 Jul 2007 20:15:50 -0000 1.20 +++ mring.lisp 18 Jul 2007 09:41:59 -0000 1.21 @@ -223,8 +223,8 @@ :mring-to-maxima #'(lambda (s) s) :maxima-to-mring #'(lambda (s) (setq s ($rectform ($bfloat s))) - (if (or (eq s '$%i) (complex-number-p s 'bigfloat-or-number-p) s - (merror "Unable to convert matrix entry to a big float")))))) + (if (or (eq s '$%i) (complex-number-p s 'bigfloat-or-number-p)) s + (merror "Unable to convert matrix entry to a big float"))))) (setf (get '$bigfloatfield 'ring) *bigfloatfield*) |