# HG changeset patch
# User jwe
# Date 752677267 0
# Node ID 83c8b5c4d9d945ccd07b2c2b09e016a0160df514
# Parent  b025ad539b4341c4422ac14ac6b82e4ab9ea74cf
[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.

diff -r b025ad539b43 -r 83c8b5c4d9d9 src/parse.y
--- a/src/parse.y	Sun Nov 07 01:09:34 1993 +0000
+++ b/src/parse.y	Sun Nov 07 13:01:07 1993 +0000
@@ -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);