# HG changeset patch
# User jwe
# Date 810426126 0
# Node ID 6d79fce68412303c9910e60ce7ff918b58198b33
# Parent  766af9ca8edb760f32800eacce28c7f5ad537fdd
[project @ 1995-09-06 22:22:06 by jwe]

diff -r 766af9ca8edb -r 6d79fce68412 src/pt-cmd.cc
--- 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