diff options
| author | ronny | 2001-07-25 16:22:14 +0000 |
|---|---|---|
| committer | ronny | 2001-07-25 16:22:14 +0000 |
| commit | b25a2ecb689eb9e48e5b25550deecaa1e045155b (patch) | |
| tree | 2e5afa03a0dda7259271bd0861955c22a2a70249 /frontend | |
| parent | This commit was generated by cvs2svn to compensate for changes in r580, (diff) | |
accept "funny" type and constructor names in from ... import statements
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@582 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/parse.icl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index ea61722..9a6cd2e 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -959,13 +959,11 @@ want_2_0_import_declaration token pState // ..MW5 = case token of DoubleColonToken -// PK # (name, pState) = wantConstructorName "import type" pState - # (name, pState) = wantUpperCaseName "import type" pState + # (name, pState) = wantConstructorName "import type" pState (type_id, pState) = stringToIdent name IC_Type pState (ii_extended, token, pState) = optional_extension_with_next_token pState | token == OpenToken -// PK # (conses, pState) = want_names (wantConstructorName "import type (..)") IC_Expression CloseToken pState - # (conses, pState) = want_names (wantUpperCaseName "import type (..)") IC_Expression CloseToken pState + # (conses, pState) = want_names (wantConstructorName "import type (..)") IC_Expression CloseToken pState -> (ID_Type { ii_ident = type_id, ii_extended = ii_extended } (Yes conses), pState) | token == CurlyOpenToken # (fields, pState) = want_names (wantLowerCaseName "import record fields") (IC_Field type_id) CurlyCloseToken pState |