anchor.diff:      %% (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}
  +        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),
  
positive.code: 
  to_pat_bitseg([Val|Specs]=F, L, Vt, St) ->
      case is_integer_list(F) of
      true ->
          {Size,Type} = to_bitspecs([]),
          to_pat_bin_element(F, Size, Type, L, Vt, St);
      false ->
          {Size,Type} = to_bitspecs(Specs),
          to_pat_bin_element(Val, Size, Type, L, Vt, St)
      end;
  to_pat_bitseg(Val, L, Vt, St) ->
      {Size,Type} = to_bitspecs([]),
  
negative.code: 
  to_block(Es, L, Vt, St0) ->
      case to_expr_list(Es, L, Vt, St0) of
          {[Ee],St1} -> {Ee,St1};                 %No need to wrap
          {Ees,St1} -> {{block,L,Ees},St1}        %Must wrap
      end.
  
  %% to_let_bindings(Bindings, LineNumber, VarTable, State) ->
  %%     {Block,VarTable,State}.
  %%  When we have a guard translate into a case but special case where
  %%  we have an empty guard.
  
  to_let_bindings(Lbs, L, Vt, St) ->
      Fun = fun ([P,E], Vt0, St0) ->
                    {Ep,Vt1,St1} = to_pat(P, L, Vt0, St0),
                    {Ee,St2} = to_expr(E, L, Vt0, St1),
                    {{match,L,Ep,Ee},Vt1,St2};
                ([P,['when'],E], Vt0, St0) ->     %Just to keep it short
                    {Ep,Vt1,St1} = to_pat(P, L, Vt0, St0),
                    {Ee,St2} = to_expr(E, L, Vt0, St1),
                    {{match,L,Ep,Ee},Vt1,St2};
                ([P,['when'|G],E], Vt0, St0) ->
                    {Ee,St1} = to_expr(E, L, Vt0, St0),
                    {Ep,Vt1,St2} = to_pat(P, L, Vt0, St1),
                    {Eg,St3} = to_body(G, L, Vt1, St2),
                    {{'case',L,Ee,[{clause,L,[Ep],Eg,[Ep]}]},Vt1,St3}
        end,
      mapfoldl2(Fun, Vt, St, Lbs).
  
  