Mercurial > hg > octave-nkf

diff src/parse.y @ 8819:96d87674b818

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
also stash directory name for subfunctions
author John W. Eaton <jwe@octave.org>
date Fri, 20 Feb 2009 01:00:25 -0500
parents 7d48766c21a5
children 8463d1a2e544
line wrap: on
line diff
--- a/src/parse.y
+++ b/src/parse.y
@@ -3377,7 +3377,16 @@
     }
 
   if (retval)
-    retval->stash_dir_name (dir_name);
+    {
+      retval->stash_dir_name (dir_name);
+
+      if (retval->is_user_function ())
+	{
+	  symbol_table::scope_id id = retval->scope ();
+
+	  symbol_table::stash_dir_name_for_subfunctions (id, dir_name);
+	}
+    }
 
   unwind_protect::run_frame ("load_fcn_from_file");