From 641daa3443c53a63ba081011d922e50ec9e66917 Mon Sep 17 00:00:00 2001 From: sjakie Date: Wed, 8 Jan 2003 14:55:59 +0000 Subject: Bug fix: uniqueness error in records git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1308 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- frontend/postparse.icl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'frontend/postparse.icl') 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 } -- cgit v1.2.3