diff options
| author | martinw | 2000-04-26 09:10:34 +0000 |
|---|---|---|
| committer | martinw | 2000-04-26 09:10:34 +0000 |
| commit | 1e8f9d92be20258186661009221e60034fc53f06 (patch) | |
| tree | 7b82bbcc810aa9fdfa04b0912914a8139d8683bc /frontend/predef.icl | |
| parent | small bugfix (diff) | |
changes to make compiler compatible with itself
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@126 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/predef.icl')
| -rw-r--r-- | frontend/predef.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/frontend/predef.icl b/frontend/predef.icl index aa1468f..2ae1a83 100644 --- a/frontend/predef.icl +++ b/frontend/predef.icl @@ -236,15 +236,15 @@ where | nr_of_vars == 0 = (type_vars, pre_def_symbols) # nr_of_vars = dec nr_of_vars - #! var_id = pre_def_symbols.[PD_TypeVar_a0 + nr_of_vars] + # (var_id, pre_def_symbols) = pre_def_symbols![PD_TypeVar_a0 + nr_of_vars] = make_type_vars nr_of_vars [MakeTypeVar var_id.pds_ident : type_vars] pre_def_symbols new_defined_symbol symbol_index arity ds_index pre_def_symbols - #! ds_ident = pre_def_symbols.[symbol_index] + # (ds_ident, pre_def_symbols) = pre_def_symbols![symbol_index] = ({ ds_ident = ds_ident.pds_ident, ds_arity = 2, ds_index = ds_index }, pre_def_symbols) make_type_def type_cons_index type_vars type_rhs pre_def_symbols - #! type_ident = pre_def_symbols.[type_cons_index] + # (type_ident, pre_def_symbols) = pre_def_symbols![type_cons_index] = (MakeTypeDef type_ident.pds_ident (map (\tv -> MakeAttributedTypeVar tv) type_vars) type_rhs TA_None [] NoPos, pre_def_symbols) make_TC_class_def pre_def_symbols |