anchor.diff:  %%pattern({struct,Line,Tag,Ps}, St0) ->
   %%    {TPs,TPsvs,St1} = pattern_list(Ps, St0),
   %%    {{struct,Line,Tag,TPs},TPsvs,St1};
  -pattern({record_field,_,_,_}=M, St) ->
  -    {M,St};  % must be a package name
   pattern({record_index,Line,Name,Field}, St) ->
       {index_expr(Line, Field, Name, record_fields(Name, St)),St};
   pattern({record,Line,Name,Pfs}, St0) ->
  
positive.code: %%expr({struct,Line,Tag,Es0}, Vs, St0) ->
  %%    {Es1,Esvs,Esus,St1} = expr_list(Es0, Vs, St0),
  %%    {{struct,Line,Tag,Es1},Esvs,Esus,St1};
  expr({record_field,_,_,_}=M, St) ->
      {M,St};  % must be a package name
  expr({record_index,Line,Name,F}, St) ->
      I = index_expr(Line, F, Name, record_fields(Name, St)),
      expr(I, St);
  
negative.code:                     end
              end
      end;
  expr({call,Line,{remote,Lr,M,F},As0}, St0) ->
      {[M1,F1 | As1],St1} = expr_list([M,F | As0], St0),
      {{call,Line,{remote,Lr,M1,F1},As1},St1};
  