anchor.diff:  
   -spec start_link() -> {ok, action_queue()}.       
   start_link() ->
  -    {ok,Pid} = gen_server:start_link(?MODULE,self(),[]),
  +    Caller = self(),
  +    {ok,Pid} = gen_server:start_link(?MODULE,Caller,[]),
       {ok,#wf_action_queue{pid=Pid}}.
   
   -spec stop(action_queue()) -> ok.
  
positive.code: 
  %% gen_server functions
  
  -spec blank_state() -> #state{}.
  blank_state() ->
      #state{eager=queue:new(), normal=queue:new(), defer=queue:new()}.
  
  -spec init(term()) -> {ok, #state{}}.
  init(_) ->
      %% link and trap exits?
      {ok, blank_state()}.
  
  -spec terminate(any(), #state{}) -> ok.
  terminate(_Reason,_State) ->
  
negative.code:         defer=NewDefer
      },
      {reply, Reply, NewState};
  handle_call(clear, _Pid, State) ->
      {reply, ok, blank_state(State#state.caller)};
  handle_call(all, _Pid, State) ->
      AllActions = queue:to_list(State#state.eager) 
                   ++ queue:to_list(State#state.normal)
  