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:     code_change/3
  ]).
  
  -record(state,{eager,normal,defer}).
  -record(wf_action_queue,{
      pid     :: pid()
  }).
  
negative.code: 
  %% gen_server functions
  
  -spec blank_state(Caller :: pid()) -> #state{}.
  blank_state(Caller) ->
      #state{eager=queue:new(), normal=queue:new(), defer=queue:new(), caller=Caller}.
  
  -spec init(Caller :: pid()) -> {ok, #state{}}.
  init(Caller) ->
      process_flag(trap_exit, true),
      {ok, blank_state(Caller)}.
  
  -spec terminate(any(), #state{}) -> ok.
  terminate(_Reason,_State) ->
  