diff options
| author | johnvg | 2002-06-17 11:53:07 +0000 |
|---|---|---|
| committer | johnvg | 2002-06-17 11:53:07 +0000 |
| commit | b9d3c2066f3cd10cf0fcda8fb2a6148b6a93ad88 (patch) | |
| tree | b518ce7cc52adbb04939e00ac74fd6068238c93b /frontend/checktypes.icl | |
| parent | removed double alternative for TVI_TypeKind in <<< (diff) | |
removed ignored !'s
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1099 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checktypes.icl')
| -rw-r--r-- | frontend/checktypes.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/checktypes.icl b/frontend/checktypes.icl index 5b25c06..efc8b83 100644 --- a/frontend/checktypes.icl +++ b/frontend/checktypes.icl @@ -297,7 +297,7 @@ where // ---> ("bind_types_of_constructors", cons_def.cons_symb, exi_vars, cons_type) where bind_types_of_cons :: ![AType] !CurrentTypeInfo ![TypeVar] ![AttrInequality] !(!*TypeSymbols, !*TypeInfo, !*CheckState) - -> !(![AType], ![[ATypeVar]], ![AttrInequality], !(!*TypeSymbols, !*TypeInfo, !*CheckState)) + -> (![AType], ![[ATypeVar]], ![AttrInequality], !(!*TypeSymbols, !*TypeInfo, !*CheckState)) bind_types_of_cons [] cti free_vars attr_env ts_ti_cs = ([], [], attr_env, ts_ti_cs) bind_types_of_cons [type : types] cti free_vars attr_env ts_ti_cs |