diff options
| author | ronny | 2002-10-14 23:06:24 +0000 |
|---|---|---|
| committer | ronny | 2002-10-14 23:06:24 +0000 |
| commit | 4147cc9bb6a8589fb7a365894baa087aeb02df8b (patch) | |
| tree | 9ce0561562f57d3e20d8abceb6d5f691209773ac /frontend/type.icl | |
| parent | bug fix convert root cases (diff) | |
new type code and type code constructor representation
clean-up and renamed functions from StdDynamic
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1234 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/type.icl')
| -rw-r--r-- | frontend/type.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/type.icl b/frontend/type.icl index a8a0e6c..4ded1b0 100644 --- a/frontend/type.icl +++ b/frontend/type.icl @@ -2631,8 +2631,8 @@ where array_first_instance_indices = first_instance_indices si_array_instances = (array_first_instance_indices,list_first_instance_indices,tail_strict_list_first_instance_indices,fun_defs,type_code_instances,predef_symbols,type_heaps,error) where - mark_used_type_constructors_in_applications_of_type_dependent_functions {gtci_index, gtci_type=GTT_Constructor type_symb_ident module_name False} - = GTT_Constructor type_symb_ident module_name True + mark_used_type_constructors_in_applications_of_type_dependent_functions {gtci_index, gtci_type=GTT_Constructor cons False} + = GTT_Constructor cons True mark_used_type_constructors_in_applications_of_type_dependent_functions {gtci_type} = gtci_type |