Mercurial > octave-nkf

diff src/pt-except.cc @ 4429:c1f6200b5f0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-06-17 04:36:08 by jwe]
author jwe
date Tue, 17 Jun 2003 04:36:08 +0000
parents fa3482b34599
children 5e2c68946f30
line wrap: on
line diff
--- a/src/pt-except.cc	Mon Jun 16 19:09:11 2003 +0000
+++ b/src/pt-except.cc	Tue Jun 17 04:36:08 2003 +0000
@@ -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");