diff options
| author | ronny | 2001-11-01 15:02:53 +0000 |
|---|---|---|
| committer | ronny | 2001-11-01 15:02:53 +0000 |
| commit | 2dd12aa0415f7c4200cb8eb0befcf01581c725ff (patch) | |
| tree | f63051f74c35dff581172c3137b225c5d7a52102 /frontend/convertcases.icl | |
| parent | fixed strictness annotation (diff) | |
removed useless selection
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@875 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 513df80..a3bf43c 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -750,7 +750,6 @@ where add_new_function_to_group fun_heap common_defs fun_ptr (groups, fun_defs, imported_types, imported_conses, type_heaps, var_heap) # (FI_Function {gf_fun_def,gf_fun_index}) = sreadPtr fun_ptr fun_heap {fun_type = Yes ft, fun_info = {fi_group_index, fi_properties}} = gf_fun_def - (Yes ft) = gf_fun_def.fun_type (ft, imported_types, imported_conses, type_heaps, var_heap) = convertSymbolType (fi_properties bitand FI_HasTypeSpec == 0) common_defs ft main_dcl_module_n imported_types imported_conses type_heaps var_heap |