Mercurial > hg > octave-nkf

diff src/parse.y @ 197:83c8b5c4d9d9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-11-07 13:01:07 by jwe] (func_def2): Reset id_name after renaming identifier. Clear id_name from top level symbol table before defining identifier.
author jwe
date Sun, 07 Nov 1993 13:01:07 +0000
parents 13c6086c325c
children 1761d7a3770c
line wrap: on
line diff
--- a/src/parse.y
+++ b/src/parse.y
@@ -886,6 +886,7 @@
  with M-file name `%s.m'", id_name, curr_m_file_name);
 
 			    $1->rename (curr_m_file_name);
+			    id_name = $1->name ();
 			  }
 
 			$4->stash_m_file_name (curr_m_file_name);
@@ -900,6 +901,8 @@
  script file `%s.m'", id_name, curr_m_file_name);
 		      }
 
+		    top_level_sym_tab->clear (id_name);
+
 		    $4->stash_function_name (id_name);
 
 		    $1->define ($4);