diff options
| author | pieter | 1999-10-07 13:34:23 +0000 |
|---|---|---|
| committer | pieter | 1999-10-07 13:34:23 +0000 |
| commit | 66d737d399ffb1714f3613f5da1d23ae3c780c7d (patch) | |
| tree | e8c24c07c01b357a287e59c247b3662ba8816317 | |
| parent | offside voor cases (diff) | |
end of cases and root expressions
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@6 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/parse.icl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 78c3780..6b1f4da 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -2483,6 +2483,9 @@ wantEndRootExpression pState=:{ps_skipping} BarToken -> tokenBack pState InToken -> tokenBack pState CloseToken -> tokenBack pState + SquareCloseToken -> tokenBack pState + CommaToken -> tokenBack pState + ColonToken -> tokenBack pState (SeqLetToken _) -> tokenBack pState SemicolonToken # (token, pState) = nextToken FunctionContext pState -> case token of @@ -2587,6 +2590,8 @@ wantEndCase pState CloseToken -> tokenBack (appScanState dropOffsidePosition pState) SquareCloseToken -> tokenBack (appScanState dropOffsidePosition pState) SemicolonToken -> tokenBack (appScanState dropOffsidePosition pState) + CommaToken -> tokenBack (appScanState dropOffsidePosition pState) + ColonToken -> tokenBack (appScanState dropOffsidePosition pState) _ -> parseError "case expression" (Yes token) "end of case with layout" pState // ~ ss_useLayout | token == CurlyCloseToken |