# HG changeset patch
# User jwe
# Date 791675269 0
# Node ID 7b7e58b31316b7feca1235fe43a2c9d0759de443
# Parent  0491f3433f66f4e5968f893c9d00cce78f037381
[project @ 1995-02-01 21:47:49 by jwe]

diff -r 0491f3433f66 -r 7b7e58b31316 src/pt-exp-base.cc
--- a/src/pt-exp-base.cc	Wed Feb 01 21:43:25 1995 +0000
+++ b/src/pt-exp-base.cc	Wed Feb 01 21:47:49 1995 +0000
@@ -1261,15 +1261,25 @@
 
 	  if (error_state)
 	    eval_error ();
-	  else if (nargin > 0 && all_args_defined (args))
+	  else if (nargin > 0)
 	    {
-	      Octave_object tmp = id->eval (print, 1, args);
-
-	      if (error_state)
-		eval_error ();
-	      else if (tmp.length () > 0)
-		retval = tmp(0);
+	      if (all_args_defined (args))
+		{
+		  Octave_object 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 ();
+		}
 	    }
+	  else
+	    panic_impossible ();  // XXX FIXME XXX -- is this correct?
 	}
     }
   else
@@ -1305,13 +1315,23 @@
 
 	  if (error_state)
 	    eval_error ();
-	  else if (nargin > 0 && all_args_defined (args))
+	  else if (nargin > 0)
 	    {
-	      retval = id->eval (print, nargout, args);
-
-	      if (error_state)
-		eval_error ();
+	      if (all_args_defined (args))
+		{
+		  retval = id->eval (print, nargout, args);
+
+		  if (error_state)
+		    eval_error ();
+		}
+	      else
+		{
+		  ::error ("undefined arguments found in index expression");
+		  eval_error ();
+		}
 	    }
+	  else
+	    panic_impossible ();  // XXX FIXME XXX -- is this correct?
 	}
     }
   else