From cf5d6fc67c48f64b20abb57b6f2f7f46f205e771 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 21 Mar 2011 10:26:33 +0000
Subject: remove unused field td_context from type TypeDef

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

(limited to 'frontend/syntax.dcl')

diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl
index 22aedd1..295e60b 100644
--- a/frontend/syntax.dcl
+++ b/frontend/syntax.dcl
@@ -411,7 +411,7 @@ cNameLocationDependent :== True
 	| TypeConsVar TypeVar 
 
 :: GenericCaseDef = 
-	{	gc_ident			:: !Ident				// name in IC_GenricCase namespace
+	{	gc_ident		:: !Ident				// name in IC_GenricCase namespace
 	,	gc_gident		:: !Ident  				// name in IC_Generic namespace
 	,	gc_generic		:: !GlobalIndex  		// index of the generic
 	,	gc_arity		:: !Int					// arity of the function
@@ -524,7 +524,6 @@ NoGlobalIndex :== {gi_module=NoIndex,gi_index=NoIndex}
 	,	td_arity		:: !Int
 	,	td_args			:: ![ATypeVar]
 	,	td_attrs		:: ![AttributeVar]
-	,	td_context		:: ![TypeContext]
 	,	td_rhs			:: !type_rhs
 	,	td_attribute	:: !TypeAttribute
 	,	td_pos			:: !Position
@@ -1502,8 +1501,8 @@ ParsedInstanceToClassInstance pi members :==
  					 it_context = pi.pi_context }, 
  		ins_members = members, ins_specials = pi.pi_specials, ins_pos = pi.pi_pos}
 
-MakeTypeDef name lhs rhs attr contexts pos  :== 
-	{	td_ident = name, td_index = -1, td_arity = length lhs, td_args = lhs, td_attrs = [], td_attribute = attr, td_context = contexts,
+MakeTypeDef name lhs rhs attr pos  :== 
+	{	td_ident = name, td_index = -1, td_arity = length lhs, td_args = lhs, td_attrs = [], td_attribute = attr,
 		td_pos = pos, td_rhs = rhs, td_used_types = [], td_fun_index = NoIndex
 	}
 
-- 
cgit v1.2.3