Removed redundant field name

Author: PaulKlint

src/org/rascalmpl/core/library/lang/rascalcore/check/ATypeUtils.rsc

@@ -74,7 +74,7 @@ str prettyAType(aadt(str s, [], SyntaxRole _)) = s;
 str prettyAType(aadt(str s, ps, SyntaxRole _)) = "<s>[<prettyAType(ps)>]" when size(ps) > 0;
 
 str prettyAType(t: acons(AType adt, /*str consName,*/ 
-                list[AType fieldType] fields,
+                list[AType] fields,
                 list[Keyword] kwFields))
                  = "<prettyAType(adt)>::<t.alabel>(<intercalate(", ", ["<prettyAType(ft)><ft.alabel? ? " <ft.alabel>" : "">" | ft <- fields])><isEmpty(kwFields) ? "" : ", "><intercalate(",", ["<prettyAType(kw.fieldType)> <kw.fieldName>=..." | Keyword kw <- kwFields])>)";
 
@@ -140,7 +140,7 @@ Symbol atype2symbol1(areal()) = Symbol::\real();
 Symbol atype2symbol1(arat()) = \rat();
 Symbol atype2symbol1(astr()) = \str();
 Symbol atype2symbol1(anum()) = Symbol::\num();
-Symbol atype2symbol1(anode( list[AType fieldType] fields)) = Symbol::\node();
+Symbol atype2symbol1(anode( list[AType] fields)) = Symbol::\node();
 Symbol atype2symbol1(avoid()) = Symbol::\void();
 Symbol atype2symbol1(avalue()) = Symbol::\value();
 Symbol atype2symbol1(aloc()) = Symbol::\loc();
@@ -171,7 +171,7 @@ Symbol atype2symbol1(aadt(str s, ps, contextFreeSyntax())) = \parameterized-sort
 Symbol atype2symbol1(aadt(str s, ps, lexicalSyntax())) = \parameterized-lex(s, [atype2symbol(p) | p <- ps]) when size(ps) > 0; 
 
 Symbol atype2symbol1(t: acons(AType adt,
-                list[AType fieldType] fields,
+                list[AType] fields,
                 list[Keyword] kwFields))
  = Symbol::cons(atype2symbol(adt), t.alabel, [atype2symbol(f) | f <- fields]); // we loose kw fields here