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: ?LIST_MAPPER(pattern_list, pattern). % pattern_sequence
  ?LIST_MAPPER(guard_list, guard). % guard sequence
  ?LIST_MAPPER(field_list, field).
  ?LIST_MAPPER(map_field_list, map_field).
  ?LIST_MAPPER(bin_list, bin).
  ?LIST_MAPPER(gen_list, gen).
  
  