anchor.diff:      case include_name(IncFile) of
           {ok,Name} ->
               case path_read_file(Path, Name, St0) of
  -                {ok,Fs,St1} -> {yes,['progn'|Fs],St1};
  +                {ok,Forms,St1} -> {yes,['progn'|Forms],St1};
                   {error,St1} -> {error,St1};
                   not_found ->
                       {error,add_error({no_include,file,Name}, St0)}
  
positive.code:                     {yes,['progn'|Forms],St1};
                  {error,St1} -> {error,St1};
                  not_found ->
                      case lib_file_name(Name) of
                          {ok,LibName} ->
                              case read_file(LibName, St0) of
                                  {ok,Forms,St1} ->
                                      {yes,['progn'|Forms],St1};
                                  {error,St1} -> {error,St1}
                              end;
                          error ->
                              {error,add_error({no_include,lib,Name}, St0)}
                      end
              end;
  
negative.code: 
  include_name(Name) ->
      try
          {ok,lists:flatten(unicode:characters_to_list(Name, utf8))}
      catch
          _:_ -> {error,badarg}
  end.
  
  %% path_read_file(Path, Name, State) ->
  