diff options
| author | johnvg | 2002-06-17 11:53:07 +0000 |
|---|---|---|
| committer | johnvg | 2002-06-17 11:53:07 +0000 |
| commit | b9d3c2066f3cd10cf0fcda8fb2a6148b6a93ad88 (patch) | |
| tree | b518ce7cc52adbb04939e00ac74fd6068238c93b /frontend/parse.icl | |
| parent | removed double alternative for TVI_TypeKind in <<< (diff) | |
removed ignored !'s
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1099 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 00e8770..d18b633 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -375,7 +375,7 @@ where = try_module_token MK_System scanState = (False, MK_None, "", tokenBack scanState) - try_module_token :: !ModuleKind !ScanState -> (!Bool,!ModuleKind!,!String,!ScanState) + try_module_token :: !ModuleKind !ScanState -> (!Bool,!ModuleKind,!String,!ScanState) try_module_token mod_type scanState # (token, scanState) = nextToken GeneralContext scanState | token == ModuleToken @@ -984,7 +984,7 @@ where default_found (GuardedAlts _ No) = False default_found _ = True - want_OptExprWithLocals :: !Bool !Token ![NodeDefWithLocals] !RhsDefiningSymbol !ParseState -> (!Optional !ExprWithLocalDefs, !RhsDefiningSymbol, !ParseState) + want_OptExprWithLocals :: !Bool !Token ![NodeDefWithLocals] !RhsDefiningSymbol !ParseState -> (!Optional ExprWithLocalDefs, !RhsDefiningSymbol, !ParseState) // want_OptExprWithLocals withExpected DoubleArrowToken nodeDefs pState // = want_OptExprWithLocals True EqualToken nodeDefs (replaceToken EqualToken pState) want_OptExprWithLocals withExpected token nodeDefs definingSymbol pState @@ -3758,7 +3758,7 @@ wantBeginGroup msg pState _ -> parseError msg (Yes token) "begin group without layout, {," pState // AA.. -wantKind :: !ParseState -> !(!TypeKind, !ParseState) +wantKind :: !ParseState -> (!TypeKind, !ParseState) wantKind pState | SwitchGenerics False True = (KindConst, parseErrorSimple "kind" "generics are not supported by this compiler" pState) |