From 75f12cdd2f3005599a0e69e6eec164fb6531a1bf Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 13 Apr 2007 12:30:18 +0000
Subject: 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
---
 frontend/analtypes.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'frontend')

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)
 
-- 
cgit v1.2.3