From 06a9755549c194ed39245152f66d81f43e2d9719 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 5 Apr 2013 14:31:26 +0000
Subject: add derive class for deriving generic functions in class context
 (from iTask branch)

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2225 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/hashtable.icl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'frontend/hashtable.icl')

diff --git a/frontend/hashtable.icl b/frontend/hashtable.icl
index b5e8552..ec4d099 100644
--- a/frontend/hashtable.icl
+++ b/frontend/hashtable.icl
@@ -23,6 +23,7 @@ import predef, syntax, compare_types, compare_constructor
 				| IC_InstanceMember ![Type]
 				| IC_Generic
 				| IC_GenericCase !Type
+				| IC_GenericDeriveClass !Type
 				| IC_TypeExtension !{#Char}/*module name*/
 				| IC_Unknown
 
@@ -45,6 +46,8 @@ where
 		= compare_types types1 types2
 	(=<) (IC_GenericCase type1) (IC_GenericCase type2)
 		= type1 =< type2
+	(=<) (IC_GenericDeriveClass type1) (IC_GenericDeriveClass type2)
+		= type1 =< type2
 	(=<) (IC_Field typ_id1) (IC_Field typ_id2)
 		= typ_id1 =< typ_id2
 	(=<) (IC_TypeExtension module_name1) (IC_TypeExtension module_name2)
-- 
cgit v1.2.3