anchor.diff:  -define(expr_list(X), expr_list(X, S)).
   -define(clause_list(X), clause_list(X, S)).
   -define(field_list(X), field_list(X, S)).
  +-define(map_field_list(X), map_field_list(X, S)).
   -define(gen_list(X), gen_list(X, S)).
   -define(bin_list(X), bin_list(X, S)).
   
  
positive.code:     {record_field,LINE,F,?expr(E)}.
  
  
  bin({bin_element,LINE,P,Size,TSL}, S) ->
      {bin_element,LINE,?expr(P),Size,TSL}.
  
  
negative.code: expr({op,LINE,Op,P}, S) ->
      {op,LINE,Op,?expr(P)};
  
  expr({map,LINE,L}, S) ->
      {map,LINE,?map_field_list(L)};
  
  expr({map,LINE,E,L}, S) ->
      {map,LINE,?expr(E),?map_field_list(L)};
  
  expr({'catch',LINE,E}, S) ->
      {'catch',LINE,?expr(E)};
  
  