anchor.diff:  
   fatal(Fmt, Args) ->
       io:fwrite("ERROR: " ++ Fmt, Args),
  -    init:stop(1).
  +    halt(1).
  
positive.code:     try
          file:set_cwd(D),
          try F() of
              [] -> init:stop(0);
              _Other -> init:stop(1)
          catch
              error:_ -> init:stop(1)
          end
      after
          file:set_cwd(Cwd)
  
negative.code:     New = filename:join(cur_dir(), filename:basename(Src)),
      _DelRes = file:delete(New),
      {ok,_} = file:copy(Src, New),
      case lib:nonl(os:cmd("patch <" ++ Patch ++ " 1>/dev/null 2>/dev/null; echo $?")) of %% TODO Log `patch` stderr.
          "0" ++ _ ->
              {ok, New};
          Res ->
              {error, {patch_error, {Res, Patch}}}
  