diff options
| author | ronny | 2001-12-19 12:12:31 +0000 |
|---|---|---|
| committer | ronny | 2001-12-19 12:12:31 +0000 |
| commit | 5e9818433c582c6d5e389c04d8cf5b49015218a8 (patch) | |
| tree | 3b4b802229a734ad8294c9039105b60606978d34 /frontend/parse.icl | |
| parent | permit .tcl-file to be generated from a main.prj (diff) | |
bug fix for previous bug fix
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@951 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index ef5b6fd..c9c9563 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -551,16 +551,16 @@ where combine_args [arg] = arg combine_args args = PE_List args - want_rhs_of_def parseContext (Yes (name, False), []) token pos pState - # code_allowed = token == EqualToken - | isIclContext parseContext && isLocalContext parseContext && (token == EqualToken || token == DefinesColonToken) && + want_rhs_of_def parseContext (Yes (name, False), []) definingToken pos pState + # code_allowed = definingToken == EqualToken + | isIclContext parseContext && isLocalContext parseContext && (definingToken == EqualToken || definingToken == DefinesColonToken) && /* PK isLowerCaseName name.id_name && */ not (isClassOrInstanceDefsContext parseContext) # (token, pState) = nextToken FunctionContext pState | code_allowed && token == CodeToken # (rhs, pState) = wantCodeRhs pState = (PD_Function pos name False [] rhs (FK_Function cNameNotLocationDependent), pState) # pState = tokenBack pState - # (rhs, _, pState) = wantRhs False (RhsDefiningSymbolExact token) (tokenBack pState) + # (rhs, _, pState) = wantRhs False (RhsDefiningSymbolExact definingToken) (tokenBack pState) | token == EqualToken = (PD_Function pos name False [] rhs FK_NodeDefOrFunction, pState) // otherwise // token == DefinesColonToken |