anchor.diff:          defer=NewDefer
       },
       {reply, Reply, NewState};
  -handle_call(clear, _Pid, _State) ->
  -    {reply, ok, blank_state()};
  +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)
  
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: 
  -spec start_link() -> {ok, action_queue()}.       
  start_link() ->
      Caller = self(),
      {ok,Pid} = gen_server:start_link(?MODULE,Caller,[]),
      {ok,#wf_action_queue{pid=Pid}}.
  
  -spec stop(action_queue()) -> ok.
  