Fixed the lexer so that it will give an error about pragmas rather than an internal failure

2009-03-24 02:14:51 +00:00 · 2009-03-24 02:14:51 +00:00 · b100b828e1
commit b100b828e1
parent e269efe388
1 changed files with 1 additions and 0 deletions
--- a/frontends/LexOccam.x
+++ b/frontends/LexOccam.x
@ -164,6 +164,7 @@ instance Show TokenType where
          TokRealLiteral s   -> quote "real literal" s
          TokPreprocessor s  -> quote "preprocessor directive" s
          IncludeFile s      -> quote "file inclusion" s
+          Pragma s           -> quote "pragma" s
          Indent             -> "indentation increase"
          Outdent            -> "indentation decrease"
          EndOfLine          -> "end of line"