Mercurial > hg > octave-nkf
changeset 2946:6744ac301eef
[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 (); } } }