diff options
| author | johnvg | 2006-01-13 14:58:57 +0000 |
|---|---|---|
| committer | johnvg | 2006-01-13 14:58:57 +0000 |
| commit | 5ea2589b3dbef6272cbb3884ed308403d134108c (patch) | |
| tree | 68a6c7c3530a483ebd8900c9ae7802baff22a8fb /frontend/parse.icl | |
| parent | port to 64 bit windows (diff) | |
remove some unused code
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1590 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 29d3bec..2eb7f2b 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -598,7 +598,7 @@ where # (type_cons, pState) = get_type_cons type pState with get_type_cons (TA type_symb []) pState - = (TypeConsSymb type_symb, pState) + = (TypeConsSymb type_symb, pState) get_type_cons (TA type_symb _) pState # pState = parseError "generic type, no constructor arguments allowed" No " |}" pState = (abort "no TypeCons", pState) @@ -707,20 +707,6 @@ where foreign_export_error s pState = (True,PD_Erroneous,tokenBack (parseError "foreign export" No s pState)) -/* -isEqualToken :: !Token -> Bool -isEqualToken EqualToken = True -isEqualToken _ = False -*/ -/* -isRhsStartToken :: !ParseContext !Token -> Bool -isRhsStartToken parseContext EqualToken = True -isRhsStartToken parseContext ColonDefinesToken = isGlobalOrClassOrInstanceDefsContext parseContext -isRhsStartToken parseContext DefinesColonToken = True -isRhsStartToken parseContext DoubleArrowToken = True // PK -isRhsStartToken parseContext _ = False -*/ - optionalSpecials :: !ParseState -> (!Specials, !ParseState) optionalSpecials pState # (token, pState) = nextToken TypeContext pState |