# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1233270786 18000
# Node ID 4385bb503467d6cbd834378dd4023b1f5052b858
# Parent  ee70d438a5b41d7242103f2b70f19a04418bdb9c
pt-stmt.cc (tree_statemnt::eval): check in_function_of_script_body to decide whether to call octave_call_stack::set_statement

diff -r ee70d438a5b4 -r 4385bb503467 src/ChangeLog
--- a/src/ChangeLog	Thu Jan 29 17:18:44 2009 -0500
+++ b/src/ChangeLog	Thu Jan 29 18:13:06 2009 -0500
@@ -1,5 +1,9 @@
 2009-01-29  John W. Eaton  <jwe@octave.org>
 
+	* pt-stmt.cc (tree_statement::eval): Check
+	in_function_or_script_body instead of symbol_table::at_top_level ()
+	to decide whether to call octave_call_stack::set_statement.
+
 	* graphics.cc (properties::set_defaults): Also set
 	horizontalalignment, verticalalignmnt, and rotation properties for
 	new label objects here.
diff -r ee70d438a5b4 -r 4385bb503467 src/pt-stmt.cc
--- a/src/pt-stmt.cc	Thu Jan 29 17:18:44 2009 -0500
+++ b/src/pt-stmt.cc	Thu Jan 29 18:13:06 2009 -0500
@@ -89,7 +89,7 @@
 
   if (cmd || expr)
     {
-      if (! symbol_table::at_top_level ())
+      if (in_function_or_script_body)
 	octave_call_stack::set_statement (this);
 
       maybe_echo_code (in_function_or_script_body);