diff options
| author | ronny | 2001-12-12 15:53:21 +0000 |
|---|---|---|
| committer | ronny | 2001-12-12 15:53:21 +0000 |
| commit | 7583bc84a51c87f5b068721f75e487f5a2effcdb (patch) | |
| tree | 96ae6b0fcb2be698dff9048d5aa6a318dd44c89d /frontend/parse.icl | |
| parent | don't allow local nodedefs (defined with =:) with a specified type (diff) | |
inlined simple code_block_allowed function
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@928 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 8b38c9d..68877e5 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -565,7 +565,7 @@ where // otherwise = (PD_NodeDef pos (PE_Ident name) rhs, pState) want_rhs_of_def parseContext (Yes (name, is_infix), args) token pos pState - # code_allowed = code_block_allowed token + # code_allowed = token == EqualToken || token == DoubleArrowToken (token, pState) = nextToken FunctionContext pState | isIclContext parseContext && token == CodeToken # (rhs, pState) = wantCodeRhs pState @@ -585,10 +585,6 @@ where FK_Caf | isNotEmpty args -> (PD_Function pos name is_infix [] rhs fun_kind, parseError "CAF" No "No arguments for a CAF" pState) _ -> (PD_Function pos name is_infix args rhs fun_kind, pState) - where - code_block_allowed token - = token == EqualToken || token == DoubleArrowToken - check_name_and_fixity No hasprio pState = (erroneousIdent, False, parseError "Definition" No "identifier" pState) check_name_and_fixity (Yes (name,is_infix)) hasprio pState |