anchor.diff:      end.
   
   %% pair_list(List) -> [{A,B}].
  -%%  Generate a list of tuple pairs from the elements.
  +%%  Generate a list of tuple pairs from the elements. An error if odd
  +%%  number of elements in list.
   
   pair_list([A,B|L]) -> [{A,B}|pair_list(L)];
   pair_list([]) -> [].
  
positive.code: table(?TAIL, '#M(') -> [?EXPR,?TAIL,{reduce,16}];
  table(?TAIL, '.') -> ['.',?EXPR,{reduce,17}];
  table(?TAIL, ')') -> [{reduce,18}];
  table(?TAIL, ']') -> [{reduce,17}];
  
  table(?PROP, symbol) -> [?EXPR,?PROP,{reduce,19}];
  table(?PROP, number) -> [?EXPR,?PROP,{reduce,19}];
  
negative.code: reduce(11, [_,L,_|Vs]) ->                       %s->#( p )
      [list_to_tuple(L)|Vs];
  reduce(12, [_,L,B|Vs]) ->                       %s->#B( p )
      case catch lfe_eval:literal([binary|L]) of
          Bin when is_bitstring(Bin) -> [Bin|Vs];
          _ -> {error,line(B),{illegal,binary}}
      end;
  