anchor.diff:           end || Fa <- Falist],
       [{seq,$[,$],$,,L}].
   
  -lfunction({function,_Line,Name,_Arity,Cs}, Opts) ->
  +lfunction({function,_Anno,Name,_Arity,Cs}, Opts) ->
       Cll = nl_clauses(fun (C, H) -> func_clause(Name, C, H) end, $;, Opts, Cs),
       [Cll,leaf(".\n")].
   
  -func_clause(Name, {clause,Line,Head,Guard,Body}, Opts) ->
  -    Hl = call({atom,Line,Name}, Head, 0, Opts),
  +func_clause(Name, {clause,Anno,Head,Guard,Body}, Opts) ->
  +    Hl = call({atom,Anno,Name}, Head, 0, Opts),
       Gl = guard_when(Hl, Guard, Opts),
       Bl = body(Body, Opts),
       {step,Gl,Bl}.
  
positive.code:         end,
      leaf(format(F, [M])).
  
  lattribute({attribute,_Line,type,Type}, Opts) ->
      [typeattr(type, Type, Opts),leaf(".\n")];
  lattribute({attribute,_Line,opaque,Type}, Opts) ->
      [typeattr(opaque, Type, Opts),leaf(".\n")];
  lattribute({attribute,_Line,spec,Arg}, _Opts) ->
      [specattr(spec, Arg),leaf(".\n")];
  lattribute({attribute,_Line,callback,Arg}, _Opts) ->
      [specattr(callback, Arg),leaf(".\n")];
  lattribute({attribute,_Line,Name,Arg}, Opts) ->
      [lattribute(Name, Arg, Opts),leaf(".\n")].
  
  lattribute(module, {M,Vs}, _Opts) ->
  
negative.code:         unicode -> unicode
      end.
  
  lform({attribute,Anno,Name,Arg}, Opts) ->
      lattribute({attribute,Anno,Name,Arg}, Opts);
  lform({function,Anno,Name,Arity,Clauses}, Opts) ->
      lfunction({function,Anno,Name,Arity,Clauses}, Opts);
  %% These are specials to make it easier for the compiler.
  lform({error,_}=E, Opts) ->
      message(E, Opts);
  lform({warning,_}=W, Opts) ->
      message(W, Opts);
  lform({eof,_Location}, _Opts) ->
      $\n.
  
  message(M, #options{encoding = Encoding}) ->
  