anchor.diff:  ast_body({typed,_,{record,Attrs,Fields},{record_t,DefFields}}) ->
       %% Compile as a tuple with the fields in the order they appear in the definition.
       NamedFields = [{Name,E} || {field,_,{id,_,Name},E} <- Fields],
  -    #tuple{cpts = 
  +    #tuple{cpts =
   	       [case proplists:get_value(Name,NamedFields) of
   		    undefined ->
   			[{line,Line}] = Attrs,
  
positive.code: 			      RecType})}
  		   ]};
  ast_body({typed, _, Body, _}) ->
      ast_body(Body).    
  
  ast_typerep({id,_,"int"}) ->
      word;
  
negative.code: %%%     Compiler from Aeterinty Ring language to the Aeternity VM, aevm.
  %%% @end
  %%% Created : 21 Dec 2017
  %%%
  %%%-------------------------------------------------------------------
  -module(aer_ast_to_icode).
  
  