# HG changeset patch
# User jwe
# Date 863181756 0
# Node ID 6744ac301eef60b9d2738a3ca757916f8dea3b68
# Parent  3ca5a67dcf55ce0874d019d10d7b68845def8df3
[project @ 1997-05-09 12:41:28 by jwe]

diff --git a/src/pt-mvr.cc b/src/pt-mvr.cc
--- 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 ();
 	    }
 	}
     }