anchor.diff:        <<"backspace">> -> $\b;
         <<"formfeed">> -> $\f;
         <<"return">> -> $\r;
  -      <<$u, RestToken/binary>> ->
  +      <<"u", RestToken/binary>> ->
           {Ch, _} = unicode_char(RestToken, 16, 4, true),
           Ch;
  -      <<$o, RestToken/binary>> ->
  +      <<"o", RestToken/binary>> ->
           read_octal_char(RestToken);
         Ch -> throw(<<"Unsupported character: \\", Ch/binary>>)
       end,
  
positive.code: %% Reader dispatch
  %%------------------------------------------------------------------------------
  
  read_dispatch(#{src := <<$#, Src/binary>>} = State) ->
    <<Ch, RestSrc/binary>> = Src,
    NewState = State#{src => RestSrc},
    case Ch of
      $^ -> read_meta(State#{src => Src}); %% deprecated
  
negative.code:                                EscapedChar/binary>>,
                    src => Rest},
    read_string(State);
  read_string(#{src := <<Char/utf8, SrcRest/binary>>,
                current := String} = State0) ->
    State = State0#{current => <<String/binary, Char/utf8>>,
                    src => SrcRest},
    read_string(State);
  read_string(#{src := <<"\"", Rest/binary>>} = State) ->
  