# HG changeset patch
# User jwe
# Date 787212214 0
# Node ID 9382316a8a017de6c9553f30a69ef3476c395149
# Parent  ddfbda8bf9fb1be21383c285f7b3139937c86817
[project @ 1994-12-12 06:03:34 by jwe]

diff -r ddfbda8bf9fb -r 9382316a8a01 src/lex.l
--- a/src/lex.l	Sun Dec 11 22:17:23 1994 +0000
+++ b/src/lex.l	Mon Dec 12 06:03:34 1994 +0000
@@ -545,23 +545,17 @@
   }
 
 %{
-// Identifiers.  It matters if the next non-whitespace token is `=',
-// so match that here.
+// Identifiers.  Truncate the token at the first space or tab but
+// don't write directly on yytext.
 %}
 
 {IDENT}{S}* {
-
-// Truncate the token at the first space or tab but don't write
-// directly on yytext.
-
     static char *tok = 0;
     delete [] tok;
     tok = strip_trailing_whitespace (yytext);
-    return handle_identifier (tok, 0);
-  }
-
-{IDENT}/{S}*= {
-    return handle_identifier (yytext, 1);
+    int c = yyinput ();
+    unput (c);
+    return handle_identifier (tok, (c == '='));
   }
 
 %{