anchor.diff:      %% Forget everything back to before current slurp.
       unslurp(St);
   eval_form_1([run|Args], St0) ->
  -    {Value,St1} = run(Args, St0),
  +    {Value,St1} = run_file(Args, St0),
       {Value,St1};
   eval_form_1(['reset-environment'], #state{base=Be}=St) ->
       {ok,St#state{curr=Be}};
  
positive.code: print_md5(Info) ->
      case lists:keyfind(md5, 1, Info) of
          {md5,<<MD5:128>>} -> lfe_io:format("MD5: ~.16b~n", [MD5]);
          error -> ok
      end.
  
  print_compile_time(Info) ->
  
negative.code:     lfe_io:format("Exported functions:~n", []),
      Exps = case lists:keyfind(exports, 1, Info) of
                 {exports,Es} -> Es;
                 false -> []
             end,
      print_names(fun ({N,Ar}) -> lfe_io:format1("~w/~w", [N,Ar]) end, Exps).
  
  