anchor.diff:                         {error, enotsup} ->
                              {"", ""}
                      end,
  -    loop(S0#state{prompt = Prompt, prompt2 = P2}).
  +    loop(S0#state{prompt = Prompt, prompt2 = P2, tstamp = erlang:now()}).
   
   loop({quit, S}) ->
   	{quit, S};
  
positive.code:     [io:format("~s: ~p\n", [Name, Def]) || {Name, Def} <- Defs],
      ok.
  
  eval(AST, C) ->
      case C of
          clear ->
  
negative.code:         {command, p} ->
              print(Defs),
              S;
          {command, time} ->
              Now = erlang:now(),
              io:format("~fs\n", [timer:now_diff(Now, TStamp)/1000/1000]),
              S#state{tstamp = Now};
          {command, {time_expr, Expr}} ->
              QQ = parse_line(Expr),
               do_query(QQ, S, tc);
          {command, {l, Name}} ->
              S#state{defs = load(Name, Defs)};
          {command, cache_on} ->
  