# HG changeset patch
# User jwe
# Date 748643649 0
# Node ID 5a7e0475450a85729172dc59e576b0e157164a45
# Parent  32de07939aa74fe102536114eafc7f2b5d307710
[project @ 1993-09-21 20:34:09 by jwe]
(lookup_identifier): Look in current scope first.

diff -r 32de07939aa7 -r 5a7e0475450a src/lex.l
--- a/src/lex.l	Tue Sep 21 20:29:01 1993 +0000
+++ b/src/lex.l	Tue Sep 21 20:34:09 1993 +0000
@@ -1097,8 +1097,11 @@
 static symbol_record *
 lookup_identifier (char *name)
 {
+  symbol_record *lsr = curr_sym_tab->lookup (name, 0, 0);
+  if (lsr != (symbol_record *) NULL)
+    return lsr;
+
   symbol_record *gsr = global_sym_tab->lookup (name, 0, 0);
-
   if (curr_sym_tab == top_level_sym_tab && gsr != (symbol_record *) NULL)
     return gsr;