Mercurial > octave-nkf

diff src/ov-usr-fcn.cc @ 11304:c9fefa096ce2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
echo commands in scripts
author John W. Eaton <jwe@octave.org>
date Wed, 01 Dec 2010 15:26:01 -0500
parents d782d7b524a6
children 0d9640d755b1
line wrap: on
line diff
--- a/src/ov-usr-fcn.cc	Wed Dec 01 19:55:47 2010 +0100
+++ b/src/ov-usr-fcn.cc	Wed Dec 01 15:26:01 2010 -0500
@@ -129,8 +129,8 @@
 
                   frame.add_fcn (octave_call_stack::pop);
 
-                  frame.protect_var (tree_evaluator::in_fcn_or_script_body);
-                  tree_evaluator::in_fcn_or_script_body = true;
+                  frame.protect_var (tree_evaluator::statement_context);
+                  tree_evaluator::statement_context = tree_evaluator::script;
 
                   cmd_list->accept (*current_evaluator);
 
@@ -426,8 +426,8 @@
 
   // Evaluate the commands that make up the function.
 
-  frame.protect_var (tree_evaluator::in_fcn_or_script_body);
-  tree_evaluator::in_fcn_or_script_body = true;
+  frame.protect_var (tree_evaluator::statement_context);
+  tree_evaluator::statement_context = tree_evaluator::function;
 
   bool special_expr = (is_inline_function ()
                        || cmd_list->is_anon_function_body ());