anchor.diff:  
   %% @doc Update delimiter part of the `parse/1'
   %%
  -%% NewDelimiterBin :: e.g. `{{=%% %%=}}' -> `%% %%'
  --spec parse_delimiter(state(), NewDelimiterBin :: binary(), NextBin :: binary(), Result :: [tag()]) -> [tag()] | partial().
  -parse_delimiter(State0, NewDelimiterBin, NextBin, Result) ->
  -    case binary:match(NewDelimiterBin, <<"=">>) of
  +%% Parse_StringDelimiterBin :: e.g. `{{=%% %%=}}' -> `%% %%'
  +-spec parse_delimiter(state(), Parse_StringDelimiterBin :: binary(), NextBin :: binary(), Result :: [tag()]) -> [tag()] | partial().
  +parse_delimiter(State0, Parse_StringDelimiterBin, NextBin, Result) ->
  +    case binary:match(Parse_StringDelimiterBin, <<"=">>) of
           nomatch ->
  -            case [X || X <- binary:split(NewDelimiterBin, <<" ">>, [global]), X =/= <<>>] of
  +            case [X || X <- binary:split(Parse_StringDelimiterBin, <<" ">>, [global]), X =/= <<>>] of
                   [Start, Stop] -> parse1(State0#state{start = Start, stop = Stop}, NextBin, Result);
                   _             -> error(?PARSE_ERROR)
               end;
  
positive.code: %% Defines & Records & Types
  %%----------------------------------------------------------------------------------------------------------------------
  
  -define(PARSE_ERROR, incorrect_format).
  -define(FILE_ERROR, file_not_found).
  -define(COND(Cond, TValue, FValue),
          case Cond of true -> TValue; false -> FValue end).
  
  -type key()  :: binary().
  -type tag()  :: {n,   key()}          |
                  {'&', key()}          |
                  {'#', key(), [tag()]} |
                  {'^', key(), [tag()]} |
                  {'>', key()}          |
                  binary().
  -type partial() :: {partial, {EndTag :: binary(), Rest :: binary(), [tag()]}}.
  
  -record(state,
          {
            dirname = <<>>     :: filename:filename_all(),
            start   = <<"{{">> :: binary(),
            stop    = <<"}}">> :: binary()
          }).
  
negative.code: 
       {"{{#tag}}",    ?NT_F(<<"{{#tag}}">>)},
       {"{{#tag1}}{{#tag2}}{{name}}{{/tag1}}{{/tag2}}",
        ?NT_S([<<"a">>, {'#', <<"t1">>, [<<"b">>,
                                         {'#', <<"t2">>, [<<"c">>, {n, <<"t3">>}, <<"d">>], <<"c{{t3}}d">>},
                                         <<"e">>], <<"b{{#t2}}c{{t3}}d{{/t2}}e">>}, <<"f">>],
              <<"a{{#t1}}b{{#t2}}c{{t3}}d{{/t2}}e{{/t1}}f">>)},
       {"{{#tag1}}{{#tag2}}{{/tag1}}{{/tag2}}", ?NT_F(<<"{{#t1}}{{#t2}}{{/t1}}{{/t2}}">>)},
  
       {"{{# tag}}{{/ tag}}",     ?NT_S([<<>>, {'#', <<"tag">>,  [<<>>], <<>>}, <<>>], <<"{{# tag}}{{/ tag}}">>)},
       {"{{ #tag }}{{ / tag }}",  ?NT_S([<<>>, {'#', <<"tag">>,  [<<>>], <<>>}, <<>>], <<"{{ #tag }}{{ / tag }}">>)},
       {"{{ # tag }}{{ /tag }}",  ?NT_S([<<>>, {'#', <<"tag">>,  [<<>>], <<>>}, <<>>], <<"{{ # tag }}{{ /tag }}">>)},
       {"{{ # ta g}}{{ / ta g}}", ?NT_S([<<>>, {'#', <<"ta g">>, [<<>>], <<>>}, <<>>], <<"{{ # ta g}}{{ / ta g}}">>)},
  
       {"{{!comment}}",           ?NT_S([<<"a">>, <<"c">>], <<"a{{!comment}}c">>)},
       {"{{! comment }}",         ?NT_S([<<>>, <<>>],       <<"{{! comment }}">>)},
  