diff options
| author | martinw | 2001-04-20 08:00:45 +0000 |
|---|---|---|
| committer | martinw | 2001-04-20 08:00:45 +0000 |
| commit | 08d95742d1ddee6d6586a8a64afcbf40c8b5792e (patch) | |
| tree | a4cd0b1816b088e5be9379f8d396c8cee87d6b9d /frontend | |
| parent | Now I have learned about the admin command (diff) | |
bugfix: the parser did not accept
from m import :: :+:
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@360 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -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 18a0083..02a07e1 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -884,11 +884,11 @@ want_2_0_import_declaration token pState // ..MW5 = case token of DoubleColonToken - # (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 - # (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 @@ -3108,7 +3108,7 @@ wantConstructorName string pState | isUpperCaseName name || isFunnyIdName name -> (name, pState) _ - -> ("", parseError string (Yes token) "upper case ident" pState) + -> ("", parseError string (Yes token) "upper case or funny ident" pState) /* isTypeStartToken :: ! Token -> Bool |