[Maxima-commits] CVS: maxima/share/minpack minpack-interface.lisp, 1.3, 1.4

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/share/minpack
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv11339

Modified Files:
	minpack-interface.lisp 
Log Message:
Use meval instead of mfuncall to call the jacobian function.  The
latter fails if $jacobian is not already loaded.  The former will
autoload it.


Index: minpack-interface.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/minpack/minpack-interface.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- minpack-interface.lisp	21 Jan 2009 19:44:11 -0000	1.3
+++ minpack-interface.lisp	13 May 2010 17:05:37 -0000	1.4
@@ -20,7 +20,7 @@
 	 (fv (coerce-float-fun fcns vars))
 	 (fj (cond ((eq jacobian t)
 		    ;; T means compute it ourselves
-		    (mfuncall '$jacobian fcns vars))
+		    (meval `(($jacobian) ,fcns ,vars)))
 		   (jacobian
 		    ;; Use the specified Jacobian
 		    )