diff options
| author | johnvg | 2011-04-14 15:17:55 +0000 |
|---|---|---|
| committer | johnvg | 2011-04-14 15:17:55 +0000 |
| commit | b6e2db84bdc478e18310203507f90eb4b37a0fb8 (patch) | |
| tree | 318ef5dfecf8526f90b7643005fd89900f10781a /frontend/type.icl | |
| parent | replace field dcl_macro_conversions by dcl_has_macro_conversions of type DclM... (diff) | |
use type FunSpecials instead of Specials for specials of functions
(to have fewer differences with the haskell frontend branch)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1921 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 70e86ff..fdbe390 100644 --- a/frontend/type.icl +++ b/frontend/type.icl @@ -1259,8 +1259,8 @@ getSymbolType pos ti=:{ti_functions,ti_common_defs,ti_main_dcl_module_n} {symb_k # (fun_type_copy, ts) = determineSymbolTypeOfFunction pos symb_ident n_app_args ft_type ft_type_ptr ti_common_defs ts = (fun_type_copy, get_specials ft_specials, ts) where - get_specials (SP_ContextTypes specials) = specials - get_specials SP_None = [] + get_specials (FSP_ContextTypes specials) = specials + get_specials FSP_None = [] getSymbolType pos ti {symb_kind = SK_Constructor {glob_module,glob_object}} n_app_args ts # (fresh_cons_type, ts) = standardRhsConstructorType pos glob_object glob_module n_app_args ti ts = (fresh_cons_type, [], ts) |