# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1231785132 18000
# Node ID 866492035ecf79b2435d1ca8d5ff98e13bce77d6
# Parent  77b8d4aa2743699cc3419cd480a78401262d48b1
fsolve.m, fzero.m: undo part of previous change

diff --git a/scripts/optimization/fsolve.m b/scripts/optimization/fsolve.m
--- a/scripts/optimization/fsolve.m
+++ b/scripts/optimization/fsolve.m
@@ -119,7 +119,7 @@
     m = length (fvec);
     n = length (x);
     if (m < n)
-      error ("fsolve: cannot solve underdetermined systems");
+      error ("fsolve:under", "cannot solve underdetermined systems");
     elseif (m > n && niter == 1)
       if (isempty (optimget (options, "TolFun")))
 	warning ("an overdetermined system cannot usually be solved exactly; consider specifying the TolFun option");
@@ -282,9 +282,9 @@
 function fx = guarded_eval (fun, x)
   fx = fun (x);
   if (! all (isreal (fx)))
-    error ("fsolve: non-real value encountered"); 
+    error ("fsolve:notreal", "fsolve: non-real value encountered"); 
   elseif (any (isnan (fx)))
-    error ("fsolve: NaN value encountered"); 
+    error ("fsolve:isnan", "fsolve: NaN value encountered"); 
   endif
 endfunction
 
@@ -361,4 +361,3 @@
 %! assert (info > 0);
 %! assert (norm (x - x_opt, Inf) < tol);
 %! assert (norm (fval) < tol);
-
diff --git a/scripts/optimization/fzero.m b/scripts/optimization/fzero.m
--- a/scripts/optimization/fzero.m
+++ b/scripts/optimization/fzero.m
@@ -124,7 +124,7 @@
   endif
 
   if (! (sign (fa) * sign (fb) <= 0))
-    error ("fzero: not a valid initial bracketing");
+    error ("fzero:bracket", "fzero: not a valid initial bracketing");
   endif
 
   itype = 1;
@@ -242,7 +242,7 @@
       break;
     else
       ## this should never happen.
-      error ("fzero: zero point is not bracketed");
+      error ("fzero:bracket", "fzero: zero point is not bracketed");
     endif
 
     ## if there's an output function, use it now
@@ -288,9 +288,9 @@
   fx = fun (x);
   fx = fx(1);
   if (! isreal (fx))
-    error ("fzero: non-real value encountered"); 
+    error ("fzero:notreal", "fzero: non-real value encountered"); 
   elseif (isnan (fx))
-    error ("fzero: NaN value encountered"); 
+    error ("fzero:isnan", "fzero: NaN value encountered"); 
   endif
 endfunction