anchor.diff:  get_value(Key, Plist) ->
       proplists:get_value(Key, Plist, []).
   
  -write(Path, [C|_] = Spec)
  -  when is_integer(C) ->
  -    w(Path, Spec, "~s");
  -write(Path, Spec) ->
  -    w(Path, Spec, "~p.").
  -
  -w(Path, Spec, Fmt) ->
  +write(Path, Str) ->
  +    w(Path, Str, "~s").
  +
  +write_term(Path, T) ->
  +    w(Path, T, "~p.").
  +
  +w(Path, T, Fmt) ->
       {ok, Fd} = file:open(Path, [write]),
  -    io:fwrite(Fd, Fmt ++ "~n", [Spec]),
  +    io:fwrite(Fd, Fmt ++ "~n", [T]),
       file:close(Fd).
   
   codegen(File, Spec, Outdir, Mode) ->
  
positive.code:     Mod.
  
  gen(spec, Spec, _Mod, Path) ->
      write(Path ++ ".spec", [?VERSION | Spec]);
  
  gen(hrl, Spec, Mod, Path) ->
      gen_hrl(Path ++ ".hrl", Mod, Spec);
  
negative.code:     gen_erl(Path, insert_hrl_forms(Spec, Forms)).
  
  gen_erl(Path, Forms) ->
      getr(debug) andalso write_term(Path ++ ".forms", Forms),
      write(Path ++ ".erl",
            header() ++ erl_prettypr:format(erl_syntax:form_list(Forms))).
  
  