[Maxima-commits] CVS: maxima/share/linearalgebra lu.lisp, 1.22, 1.23

[Barton W. <wil...@us...>]

Update of /cvsroot/maxima/maxima/share/linearalgebra
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv30313

Modified Files:
	lu.lisp 
Log Message:
Fix for bug 2974616; mfunction-call --> mfuncall.

Index: lu.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/linearalgebra/lu.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- lu.lisp	5 Jul 2009 12:28:17 -0000	1.22
+++ lu.lisp	23 Mar 2010 01:36:30 -0000	1.23
@@ -267,8 +267,7 @@
 
 (defun $mat_cond (m p)
   ($require_square_matrix m "$first" "$mat_cond")
-  (mul (simplify (mfunction-call $mat_norm m p))
-       (simplify (mfunction-call $mat_norm ($invert_by_lu m) p))))
+  (mul (mfuncall '$mat_norm m p) (mfuncall '$mat_norm ($invert_by_lu m) p)))
 
 (defun $linsolve_by_lu (m b &optional (fld '$generalring))
   ($require_square_matrix m "$first" "$linsolve_by_lu")