diff options
| author | ronny | 2001-07-25 14:39:35 +0000 |
|---|---|---|
| committer | ronny | 2001-07-25 14:39:35 +0000 |
| commit | 21d7092be538aef72f74e5959b58d3b9ff31cac5 (patch) | |
| tree | 2643ebf19e3e8f8d4fd25367a9d4fd7ea058660f /frontend/utilities.dcl | |
| parent | bug fix parse_bug_forbidden_symbols (diff) | |
removed underscoreModule from ParseState, this is now handled by the scanner
removed underscored allowed parameter of isUpperCaseName and isLowerCaseName
these routines now always look at the first non-underscore character
adjusted the names of some types and constructors in predef so that they start with an uppercase letter
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@571 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/utilities.dcl')
| -rw-r--r-- | frontend/utilities.dcl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/frontend/utilities.dcl b/frontend/utilities.dcl index 6eaa0b4..965f872 100644 --- a/frontend/utilities.dcl +++ b/frontend/utilities.dcl @@ -18,11 +18,8 @@ stringToCharList :: !String -> [Char] charListToString :: ![Char] -> String revCharListToString :: !Int ![Char] -> String -NoUnderscores :== False -UnderscoresAllowed :== True - -isUpperCaseName :: ! String !Bool -> Bool -isLowerCaseName :: ! String !Bool -> Bool +isUpperCaseName :: ! String -> Bool +isLowerCaseName :: ! String -> Bool isFunnyIdName :: ! String -> Bool isSpecialChar :: ! Char -> Bool |