[project @ 1996-01-23 11:11:20 by partain]

[ghc-hetmet.git] / ghc / compiler / yaccParser / hslexer.flex

diff --git a/ghc/compiler/yaccParser/hslexer.flex b/ghc/compiler/yaccParser/hslexer.flex
index 0e3fb70..3c2ab36 100644 (file)
--- a/ghc/compiler/yaccParser/hslexer.flex
+++ b/ghc/compiler/yaccParser/hslexer.flex
@@ -538,13 +538,18 @@ NL                        [\n\r]
 <GhcPragma>"_TUP_"{D}+         { hsnewid(yytext, yyleng); RETURN(CONID); }
 <GhcPragma>[a-z]{i}*"$"[a-z]{i}* { hsnewid(yytext, yyleng); RETURN(TYVAR_TEMPLATE_ID); }
 
-<GlaExt,GhcPragma,UserPragma>{Id}"#" { 
+%{
+/* These SHOULDNAE work in "Code" (sigh) */
+%}
+<Code,GlaExt,GhcPragma,UserPragma>{Id}"#" { 
+                        if (! (nonstandardFlag || in_interface)) {
+                           char errbuf[ERR_BUF_SIZE];
+                           sprintf(errbuf, "Non-standard identifier (trailing `#'): %s\n", yytext);
+                           hsperror(errbuf);
+                        }
                         hsnewid(yytext, yyleng);
                         RETURN(_isconstr(yytext) ? CONID : VARID);
                        }
-%{
-/* This SHOULDNAE work in "Code" (sigh) */
-%}
 <Code,GlaExt,GhcPragma,UserPragma>_+{Id} { 
                         if (! (nonstandardFlag || in_interface)) {
                            char errbuf[ERR_BUF_SIZE];