fix bug when using type definition:

:: * I *a = { f :: !a } and: I *{String} in function type

fix bug when using type definition:
:: * I *a = { f :: !a } and: I *{String} in function type
517bca0d · John van Groningen · 4a1404f8 · 517bca0d
Commit 517bca0d authored Feb 06, 2002 by John van Groningen
--- a/frontend/checktypes.icl
+++ b/frontend/checktypes.icl
@@ -520,7 +520,7 @@ new_demanded_attribute DAK_Ignore _
 new_demanded_attribute _ TA_Unique
 	= DAK_Unique
 new_demanded_attribute dem_attr_kind _
-	= dem_attr_kind
+	= DAK_None /* dem_attr_kind */

 checkOpenAType :: !Index !Int !DemandedAttributeKind !AType !(!u:OpenTypeSymbols, !*OpenTypeInfo, !*CheckState)
 	-> (!AType, !(!u:OpenTypeSymbols, !*OpenTypeInfo, !*CheckState))