anchor.diff:  %%    <td>call</td>
   %%    <td>case</td>
   %%    <td>catch</td>
  +%%    <td>clause</td>
   %%  </tr><tr>
  -%%    <td>clause</td>
   %%    <td>cons</td>
   %%    <td>fun</td>
   %%    <td>let</td>
   %%    <td>letrec</td>
   %%    <td>literal</td>
  +%%    <td>map</td>
  +%%    <td>map_pair</td>
   %%    <td>module</td>
   %%  </tr><tr>
   %%    <td>primop</td>
  
positive.code: 	 ann_c_map_pair/4
       ]).
  
  -export_type([c_binary/0, c_call/0, c_clause/0, c_cons/0, c_fun/0, c_literal/0,
                c_module/0, c_tuple/0, c_values/0, c_var/0, cerl/0, var_name/0]).
  
  %% HiPE does not understand Maps
  %% (guard functions is_map/1 and map_size/1 in ann_c_map/3)
  -compile(no_native).
  %%
  %% needed by the include file below -- do not move
  %%
  -type var_name() :: integer() | atom() | {atom(), integer()}.
  
  -include("core_parse.hrl").
  
  
negative.code:     case type(Node) of
  	cons when A =:= [] ->
  	    split_list(cons_tl(Node), [cons_hd(Node) | L]);
  	_ ->
  	    {lists:reverse(L), Node}
      end.
  