diff options
| author | alimarin | 2003-07-15 08:53:08 +0000 |
|---|---|---|
| committer | alimarin | 2003-07-15 08:53:08 +0000 |
| commit | acc8f2a6261529d2135961cfaf6cdeda3f24b5c0 (patch) | |
| tree | c296d763c1adae0a04e60bde459205f6d43b28a6 /frontend/parse.icl | |
| parent | changed some names to properly reflect their type (diff) | |
OBJECT marking is added
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1368 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 8b8198d..f7e7b71 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -471,6 +471,7 @@ where # (ident, pState) = stringToIdent name (IC_GenericCase type) pState # (type_CONS_ident, pState) = stringToIdent "CONS" IC_Type pState # (type_FIELD_ident, pState)= stringToIdent "FIELD" IC_Type pState + # (type_OBJECT_ident, pState)= stringToIdent "OBJECT" IC_Type pState # (generic_ident, pState) = stringToIdent name IC_Generic pState # (type_cons, pState) = get_type_cons type pState @@ -504,6 +505,9 @@ where | type_ident == type_FIELD_ident # (cons_FIELD_ident, pState) = stringToIdent "GenericFieldInfo" IC_Expression pState -> (PE_List [PE_Ident cons_FIELD_ident, geninfo_arg], pState) + | type_ident == type_OBJECT_ident + # (cons_OBJECT_ident, pState) = stringToIdent "GenericTypeDefInfo" IC_Expression pState + -> (PE_List [PE_Ident cons_OBJECT_ident, geninfo_arg], pState) _ | otherwise -> (geninfo_arg, pState) |