Mercurial > hg > octave-lyh

changeset 2946:6744ac301eef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-05-09 12:41:28 by jwe]
author jwe
date Fri, 09 May 1997 12:42:36 +0000
parents 3ca5a67dcf55
children cf676ff8b702
files src/pt-mvr.cc
diffstat 1 files changed, 20 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/src/pt-mvr.cc
+++ b/src/pt-mvr.cc
@@ -137,24 +137,19 @@
 	eval_error ();
       else
 	{
-	  if (error_state)
-	    eval_error ();
+	  if (all_args_defined (args))
+	    {
+	      octave_value_list tmp = id->eval (print, 1, args);
+
+	      if (error_state)
+		eval_error ();
+	      else if (tmp.length () > 0)
+		retval = tmp(0);
+	    }
 	  else
 	    {
-	      if (all_args_defined (args))
-		{
-		  octave_value_list tmp = id->eval (print, 1, args);
-
-		  if (error_state)
-		    eval_error ();
-		  else if (tmp.length () > 0)
-		    retval = tmp(0);
-		}
-	      else
-		{
-		  ::error ("undefined arguments found in index expression");
-		  eval_error ();
-		}
+	      ::error ("undefined arguments found in index expression");
+	      eval_error ();
 	    }
 	}
     }
@@ -188,22 +183,17 @@
 	eval_error ();
       else
 	{
-	  if (error_state)
-	    eval_error ();
+	  if (all_args_defined (tmp_args))
+	    {
+	      retval = id->eval (print, nargout, tmp_args);
+
+	      if (error_state)
+		eval_error ();
+	    }
 	  else
 	    {
-	      if (all_args_defined (tmp_args))
-		{
-		  retval = id->eval (print, nargout, tmp_args);
-
-		  if (error_state)
-		    eval_error ();
-		}
-	      else
-		{
-		  ::error ("undefined arguments found in index expression");
-		  eval_error ();
-		}
+	      ::error ("undefined arguments found in index expression");
+	      eval_error ();
 	    }
 	}
     }