Mercurial > hg > octave-lojdl
changeset 1372:6d79fce68412
[project @ 1995-09-06 22:22:06 by jwe]
author | jwe |
---|---|
date | Wed, 06 Sep 1995 22:22:06 +0000 |
parents | 766af9ca8edb |
children | cea4101a2f18 |
files | src/pt-cmd.cc |
diffstat | 1 files changed, 12 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/pt-cmd.cc +++ b/src/pt-cmd.cc @@ -702,12 +702,23 @@ void tree_unwind_protect_command::eval (void) { + begin_unwind_frame ("tree_unwind_protect::eval"); + add_unwind_protect (do_unwind_protect_cleanup_code, cleanup_code); + if (cleanup_code) + { + unwind_protect_int (suppress_octave_error_messages); + suppress_octave_error_messages = 1; + } + if (unwind_protect_code) unwind_protect_code->eval (1); - run_unwind_protect (); + if (cleanup_code && error_state) + error_state = 0; + + run_unwind_frame ("tree_unwind_protect::eval"); } void