Mercurial > hg > octave-nkf

diff src/pt-except.cc @ 4429:c1f6200b5f0e
[project @ 2003-06-17 04:36:08 by jwe]
author: jwe
date: Tue, 17 Jun 2003 04:36:08 +0000
parents: fa3482b34599
children: 5e2c68946f30
--- a/src/pt-except.cc
+++ b/src/pt-except.cc
@@ -28,6 +28,8 @@
 #include <config.h>
 #endif
 
+#include "quit.h"
+
 #include "error.h"
 #include "oct-lvalue.h"
 #include "ov.h"
@@ -55,6 +57,9 @@
 static void
 do_catch_code (void *ptr)
 {
+  if (octave_interrupt_immediately)
+    return;
+
   tree_statement_list *list = static_cast<tree_statement_list *> (ptr);
 
   unwind_protect::begin_frame ("do_catch_code");