Mercurial > octave

changeset 1372:6d79fce68412

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Wed Sep 06 21:36:02 1995 +0000
+++ b/src/pt-cmd.cc	Wed Sep 06 22:22:06 1995 +0000
@@ -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