Mercurial > octave-nkf

diff src/ov-usr-fcn.cc @ 3489:cbee5fbb696d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-28 09:14:32 by jwe]
author jwe
date Fri, 28 Jan 2000 09:14:34 +0000
parents c3eed8ac845a
children b80bbb43a1a9
line wrap: on
line diff
--- a/src/ov-usr-fcn.cc	Fri Jan 28 06:47:58 2000 +0000
+++ b/src/ov-usr-fcn.cc	Fri Jan 28 09:14:34 2000 +0000
@@ -47,6 +47,7 @@
 #include "toplev.h"
 #include "unwind-prot.h"
 #include "utils.h"
+#include "parse.h"
 #include "variables.h"
 
 // If TRUE, variables returned from functions have default values even
@@ -378,6 +379,9 @@
 
     // Evaluate the commands that make up the function.
 
+    unwind_protect_bool (evaluating_function_body);
+    evaluating_function_body = true;
+
     octave_value_list tmp = cmd_list->eval ();
 
     octave_value last_computed_value;