From c977d1062979b9cec769a22cebc8da2e9c18d1f4 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 7 May 2010 10:06:37 +0000
Subject: no message

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1785 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/generics1.icl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/frontend/generics1.icl b/frontend/generics1.icl
index a99a6df..dcd44b3 100644
--- a/frontend/generics1.icl
+++ b/frontend/generics1.icl
@@ -194,7 +194,7 @@ where
 			#! modules = {modules & [n].com_generic_defs = com_generic_defs}
 			= clear_module (inc n) modules heaps
 			
-	clear_generic_def _ generic_def=:{gen_ident,gen_info_ptr} heaps=:{hp_generic_heap}
+	clear_generic_def generic_def=:{gen_ident,gen_info_ptr} heaps=:{hp_generic_heap}
 		#! (gen_info, hp_generic_heap) = readPtr gen_info_ptr hp_generic_heap
 		#! gen_info = { gen_info & gen_classes = createArray 32 [] }
 		#! hp_generic_heap = writePtr gen_info_ptr gen_info hp_generic_heap
@@ -815,9 +815,6 @@ where
 			make_expr (TFA _ _) heaps
 				// error is reported in convertATypeToGenTypeStruct
 				= make_error_type_cons heaps
-			make_expr (TFAC _ _ _) heaps
-				// error is reported in convertATypeToGenTypeStruct
-				= make_error_type_cons heaps
 			make_expr _ heaps
 				= abort "type does not match\n"
 
-- 
cgit v1.2.3