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