diff options
| author | sjakie | 2003-01-08 14:55:59 +0000 |
|---|---|---|
| committer | sjakie | 2003-01-08 14:55:59 +0000 |
| commit | 641daa3443c53a63ba081011d922e50ec9e66917 (patch) | |
| tree | 94c1c4f936850d7ffd093eac4b7e54f08b1b78b7 /frontend/postparse.icl | |
| parent | remove rhs of alternative with an AP_Empty pattern, to prevent (diff) | |
Bug fix: uniqueness error in records
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1308 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/postparse.icl')
| -rw-r--r-- | frontend/postparse.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/postparse.icl b/frontend/postparse.icl index a81a358..9bfba72 100644 --- a/frontend/postparse.icl +++ b/frontend/postparse.icl @@ -1327,7 +1327,7 @@ reorganiseDefinitions icl_module [PD_Type type_def=:{td_rhs = EmptyRhs propertie # (fun_defs, c_defs, imports, imported_objects, ca) = reorganiseDefinitions icl_module defs cons_count sel_count mem_count (type_count+1) ca type_def = { type_def & td_rhs = AbstractType properties } c_defs = { c_defs & def_types = [type_def : c_defs.def_types] } - = (fun_defs, c_defs, imports, imported_objects, ca) + = (fun_defs, c_defs, imports, imported_objects, ca) reorganiseDefinitions icl_module [PD_Type type_def=:{td_rhs = AbstractTypeSpec properties type} : defs] cons_count sel_count mem_count type_count ca # (fun_defs, c_defs, imports, imported_objects, ca) = reorganiseDefinitions icl_module defs cons_count sel_count mem_count (type_count+1) ca type_def = { type_def & td_rhs = AbstractSynType properties type } |