[Maxima-commits] CVS: maxima/share/contrib mnewton.mac,1.2,1.3

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18343

Modified Files:
	mnewton.mac 
Log Message:
Changed return() within for-loop to return(0)
(otherwise it triggers an error, since return wants an argument).
The return value = 0 is ignored.

Index: mnewton.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/mnewton.mac,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- mnewton.mac	13 Feb 2005 07:28:57 -0000	1.2
+++ mnewton.mac	19 Apr 2005 03:55:37 -0000	1.3
@@ -81,14 +81,14 @@
     for k:1 thru NEWTONMAXITER do (

       Solutions:map("=", VarList, GuessList),

       numdet:float(sublis(Solutions, det)),

-      if abs(numdet) < NEWTONEPSILON then return(),

+      if abs(numdet) < NEWTONEPSILON then return(0),

       Increments:float(rectform(expand(sublis(Solutions, NewtonMatrix / numdet)))),

       if atom(Increments) then Increments:matrix([Increments]),

       GuessList:GuessList-makelist(Increments[i][1],i,1,nfunc),

       solved:true,

       for i:1 thru nfunc do

         solved:solved and (abs(Increments[i][1]) < NEWTONEPSILON),

-      if solved then return()

+      if solved then return(0)

     ),

 

     /* Return of solution or error */