Mercurial > hg > octave-lyh

diff src/fsolve.cc @ 252:bc5e6cb785d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-12-06 21:52:57 by jwe]
author jwe
date Mon, 06 Dec 1993 21:57:51 +0000
parents a99f28f5e351
children 7ec58832918f
line wrap: on
line diff
--- a/src/fsolve.cc
+++ b/src/fsolve.cc
@@ -50,6 +50,9 @@
 {
   switch (info)
     {
+    case -1:
+      info = -2;
+      break;
     case 0:
       info = -1;
       break;
@@ -103,13 +106,16 @@
       if (tmp != NULL_TREE_CONST && tmp[0].is_defined ())
 	{
 	  retval = tmp[0].to_vector ();
+
 	  delete [] tmp;
+
+	  if (retval.length () <= 0)
+	    gripe_user_supplied_eval ("fsolve");
 	}
       else
 	{
 	  delete [] tmp;
 	  gripe_user_supplied_eval ("fsolve");
-	  jump_to_top_level ();
 	}
     }