anchor.diff:  
   to_bitspecs(Ss) ->
       case lfe_bits:get_bitspecs(Ss) of
  -    {ok,Sz,Ty} -> {Sz,Ty};
  -    {error,Error} -> erlang:error(Error)
  +        {ok,Sz,Ty} -> {Sz,Ty};
  +        {error,Error} -> erlang:error(Error)
       end.
   
   new_to_var(#to{vc=C}=St) ->
  
positive.code:     %% (qlc_pt).
      {Eas,St1} = to_expr_list(As, L, Vt, St0),
      case is_erl_op(F, length(As)) of
      true -> {list_to_tuple([op,L,F|Eas]),St1};
      false ->
          {{call,L,{remote,{atom,L,erlang},{atom,L,F}},Eas},St1}
      end;
  to_expr([call,M,F|As], L, Vt, St0) ->
      {Em,St1} = to_expr(M, L, Vt, St0),
  
negative.code: 
  to_bitseg([Val|Specs]=F, L, Vt, St) ->
      case is_integer_list(F) of
          true ->
              {Size,Type} = to_bitspecs([]),
              to_bin_element(F, Size, Type, L, Vt, St);
          false ->
              {Size,Type} = to_bitspecs(Specs),
              to_bin_element(Val, Size, Type, L, Vt, St)
      end;
  to_bitseg(Val, L, Vt, St) ->
      {Size,Type} = to_bitspecs([]),
  