anchor.diff:                               NS_TD ->
                                    NS_TD
                            end,
  -            SourceNet = lists:flatten(remove_whitespace(Source, ?WHITESPACE, [])),
  -            case string:to_lower(SourceNet) == string:to_lower(lists:flatten(remove_whitespace(binary_to_list(NSource_TD), ?WHITESPACE, []))) of
  -                true ->
  -                    ok;
  -                _ ->
  -                    ct:pal("~n[TD] Error Source == NewSource : Source      ~n > ~p", [Source]),
  -                    ct:pal("~n[TD] Error Source == NewSource : SourceNet   ~n > ~p", [SourceNet]),
  -                    ct:pal("~n[TD] Error Source == NewSource : NewSourceNet~n > ~p", [lists:flatten(remove_whitespace(binary_to_list(NSource_TD), ?WHITESPACE, []))]),
  -                    throw({error, "[TD] Error Source == NewSource"})
  -            end,
               %% -----------------------------------------------------------------
               %% 3. Source (=NSource_TD) ==> ParseTree (=NPT_TD)
               %% -----------------------------------------------------------------
  
positive.code:             ?D4("~n[BU] ParseTree~n~p", [ParseTree]);
          {lex_error, _Error} ->
              ?D_("~nFailed lex_error : Source~n > ~p", [Source]),
              throw({error, "Failed lex_error : " ++ _Error});
          {parse_error, {_Error, _Tokens}} ->
              ?D_("~nFailed parse_error : Source~n > ~p", [Source]),
              ?D_("~nFailed parse_error : Tokens~n > ~p", [_Tokens]),
              throw({error, "Failed parse_error : " ++ _Error})
      end.
  
  %%------------------------------------------------------------------------------
  
negative.code:             end;
          {lex_error, _Error} ->
              ct:pal("~nFailed lex_error : Source~n > ~p", [Source]),
              ct:pal("~nFailed lex_error : Error ~n > ~p", [_Error]),
              throw({error, "Failed lex_error"});
          {parse_error, {_Error, _Tokens}} ->
              ct:pal("~nFailed parse_error : Source~n > ~p", [Source]),
              ct:pal("~nFailed parse_error : Tokens~n > ~p", [_Tokens]),
              ct:pal("~nFailed parse_error : Error ~n > ~p", [_Error]),
              throw({error, "Failed parse_error"})
      end.
  
  %%------------------------------------------------------------------------------
  