diff options
| author | johnvg | 2007-04-13 12:30:18 +0000 |
|---|---|---|
| committer | johnvg | 2007-04-13 12:30:18 +0000 |
| commit | 75f12cdd2f3005599a0e69e6eec164fb6531a1bf (patch) | |
| tree | 3f1464868550c47e2853011da6e668358f129b3e /frontend | |
| parent | implement newtype (diff) | |
expand types if NO error has occurred, instead of if an error has occurred
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1673 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/analtypes.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/analtypes.icl b/frontend/analtypes.icl index 7ab73ed..f4e56b6 100644 --- a/frontend/analtypes.icl +++ b/frontend/analtypes.icl @@ -91,7 +91,7 @@ where = (dcl_modules, type_defs, marks,type_def_infos) expand_synonym_types_of_groups main_dcl_module_index pi_groups (new_type_defs, icl_type_defs, new_cons_defs, icl_cons_defs, type_heaps, dcl_modules, error) - | not error.ea_ok + | error.ea_ok = foldSt (expand_synonym_types_of_group main_dcl_module_index) pi_groups (new_type_defs, icl_type_defs, new_cons_defs, icl_cons_defs, type_heaps, dcl_modules, error) = (new_type_defs, icl_type_defs, new_cons_defs, icl_cons_defs, type_heaps, dcl_modules, error) |