expand types if NO error has occurred, instead of if an error has occurred

61c1f167 · John van Groningen · 6fd027e3 · 61c1f167
Commit 61c1f167 authored Apr 13, 2007 by John van Groningen
--- 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)