anchor.diff:  %% One-shot timer timeout.
   handle_info({timeout, TRef, {apply_once, MFA}}, Tab) ->
       _ = case ets:take(Tab, TRef) of
  -        [{TRef}] ->
  -            do_apply(MFA, false);
  -        [] ->
  -            ok
  -    end,
  +            [{TRef}] ->
  +                do_apply(MFA, false);
  +            [] ->
  +                ok
  +        end,
       {noreply, Tab};
   %% An interval timer loop process died.
   handle_info({'DOWN', TRef, process, _Pid, _Reason}, Tab) ->
  
positive.code: handle_call({apply_once, {Started, Time, MFA}}, _From, Tab) ->
      Timeout = Started + Time,
      Reply = try
                  erlang:start_timer(
                    Timeout,
                    self(),
                    {apply_once, MFA},
                    [{abs, true}]
                   )
              of
                  SRef ->
                      ets:insert(Tab, {SRef}),
  
negative.code:     Tag = make_ref(),
      TimeServerPid = self(),
      {TPid, TRef} = spawn_monitor(fun() ->
                                       TimeServerRef = monitor(process, TimeServerPid),
                                       TargetRef = monitor(process, TargetPid),
                                       TimerRef = schedule_interval_timer(Started, Time,
                                                                          MFA),
                                       _ = interval_loop(TimeServerRef, TargetRef, Tag,
                                                         WaitComplete, TimerRef)
                                   end),
      {TRef, TPid, Tag}.
  
  %% Interval timer loop.
  