Mercurial > octave
changeset 2406:13b3c87b192e
[project @ 1996-10-14 18:20:55 by jwe]
author | jwe |
---|---|
date | Mon, 14 Oct 1996 18:20:55 +0000 |
parents | e6adec89527e |
children | 4f55dc039a7e |
files | src/ChangeLog src/pt-fvc.cc |
diffstat | 2 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Mon Oct 14 16:23:50 1996 +0000 +++ b/src/ChangeLog Mon Oct 14 18:20:55 1996 +0000 @@ -1,5 +1,8 @@ Mon Oct 14 11:05:24 1996 John W. Eaton <jwe@bevo.che.wisc.edu> + * pt-fvc.cc (tree_identifier::eval): If retval is undefined, print + error message. + * Makefile (distclean): Remove *.oct too. * defun-int.h: Include variables.h here.
--- a/src/pt-fvc.cc Mon Oct 14 16:23:50 1996 +0000 +++ b/src/pt-fvc.cc Mon Oct 14 18:20:55 1996 +0000 @@ -415,12 +415,17 @@ eval_undefined_error (); } - if (! error_state && retval.is_defined ()) + if (! error_state) { - if (maybe_do_ans_assign && ! object_to_eval->is_constant ()) - bind_ans (retval, print); - else if (print) - retval.print_with_name (name ()); + if (retval.is_defined ()) + { + if (maybe_do_ans_assign && ! object_to_eval->is_constant ()) + bind_ans (retval, print); + else if (print) + retval.print_with_name (name ()); + } + else + eval_undefined_error (); } return retval;