diff options
| author | alimarin | 2002-10-01 12:23:01 +0000 |
|---|---|---|
| committer | alimarin | 2002-10-01 12:23:01 +0000 |
| commit | 702ea1bc19fed9d81245cd0aeae3516ecb80e08a (patch) | |
| tree | e974c93c63addc2f51da59307006c64bd38a7215 /frontend/predef.icl | |
| parent | improved case classification (diff) | |
minor changes in generics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1214 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/predef.icl')
| -rw-r--r-- | frontend/predef.icl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/frontend/predef.icl b/frontend/predef.icl index 10881a6..51c3931 100644 --- a/frontend/predef.icl +++ b/frontend/predef.icl @@ -2,6 +2,7 @@ implementation module predef import syntax, hashtable, type_io_common + (<<=) infixl (<<=) symbol_table val :== let (predefined_idents, index) = val @@ -135,6 +136,8 @@ predefined_idents [PD_ConsCONS] = i "CONS", [PD_TypeFIELD] = i "FIELD", [PD_ConsFIELD] = i "FIELD", + [PD_TypeREC] = i "REC", + [PD_ConsREC] = i "REC", [PD_GenericInfo] = i "GenericInfo", [PD_NoGenericInfo] = i "NoGenericInfo", [PD_GenericConsInfo] = i "GenericConsInfo", @@ -317,7 +320,9 @@ where <<- (local_predefined_idents, IC_Type, PD_TypeCONS) <<- (local_predefined_idents, IC_Expression, PD_ConsCONS) <<- (local_predefined_idents, IC_Type, PD_TypeFIELD) - <<- (local_predefined_idents, IC_Expression, PD_ConsFIELD) + <<- (local_predefined_idents, IC_Expression, PD_ConsREC) + <<- (local_predefined_idents, IC_Type, PD_TypeREC) + <<- (local_predefined_idents, IC_Expression, PD_ConsFIELD) <<- (local_predefined_idents, IC_Type, PD_GenericInfo) <<- (local_predefined_idents, IC_Expression, PD_NoGenericInfo) <<- (local_predefined_idents, IC_Expression, PD_GenericConsInfo) |