# HG changeset patch
# User jwe
# Date 1179868858 0
# Node ID c92e679d9cc5381874e7bb36f74d3bbff3cbacd6
# Parent  8dda89ca38f650922a12606b1ec3b5645ef4c467
[project @ 2007-05-22 21:20:58 by jwe]

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -2,6 +2,9 @@
 
 	* version.h (OCTAVE_VERSION): Now 2.9.12.
 
+	* pt-fcn-handle.cc (tree_anon_fcn_handle::rvalue):
+	Set current function as parent of anonymous function handle.
+
 	* Makefile.in (uninstall): Also remove
 	$(DESTDIR)$(octincludedir)/octave, $(DESTDIR)$(octincludedir),
 	$(DESTDIR)$(octlibdir), and $(DESTDIR)$(octfiledir).
diff --git a/src/pt-fcn-handle.cc b/src/pt-fcn-handle.cc
--- 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);