Mercurial > hg > octave-lyh

diff src/pt-fcn-handle.cc @ 6656:c92e679d9cc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-05-22 21:20:58 by jwe]
author jwe
date Tue, 22 May 2007 21:20:58 +0000
parents c7901606ba70
children 93c65f2a5668
line wrap: on
line diff
--- a/src/pt-fcn-handle.cc
+++ b/src/pt-fcn-handle.cc
@@ -115,6 +115,11 @@
     = new octave_user_function (new_param_list, new_ret_list,
 				new_cmd_list, new_sym_tab);
 
+  octave_function *curr_fcn = octave_call_stack::current ();
+
+  if (curr_fcn)
+    uf->stash_parent_fcn_name (curr_fcn->name ());
+
   uf->mark_as_inline_function ();
 
   octave_value ov_fcn (uf);