[project @ 2000-03-27 13:23:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / parser / ctypes.h

diff --git a/ghc/compiler/parser/ctypes.h b/ghc/compiler/parser/ctypes.h
index 03cf2ce..a67e162 100644 (file)
--- a/ghc/compiler/parser/ctypes.h
+++ b/ghc/compiler/parser/ctypes.h
@@ -8,8 +8,9 @@
 #define C_Symbol    1<<1
 #define C_Any       1<<2
 #define C_Space     1<<3
-#define C_Upper            1<<4
-#define C_Digit     1<<5
+#define C_Lower            1<<4
+#define C_Upper            1<<5
+#define C_Digit     1<<6
 
 #define _IsType(c,flags) (char_types[(int)(c)] & flags)
 
@@ -17,6 +18,7 @@
 #define IsIdent(c)     (_IsType(c,C_Ident))
 #define IsAny(c)       (_IsType(c,C_Any))
 #define IsSymbol(c)    (_IsType(c,C_Symbol))
+#define IsLower(c)     (_IsType(c,C_Lower))
 #define IsUpper(c)     (_IsType(c,C_Upper))
 #define IsDigit(c)     (_IsType(c,C_Digit))