anchor.diff:              #state{db = Mempool} = State) ->
       do_top_change(OldHash, NewHash, Mempool),
       {reply, ok, State};
  -handle_call({peek, MaxNumberOfTxs}, _From, #state{db = Mempool} = State)
  +handle_call({peek, MaxNumberOfTxs, Account}, _From, #state{db = Mempool} = State)
     when is_integer(MaxNumberOfTxs), MaxNumberOfTxs >= 0;
          MaxNumberOfTxs =:= infinity ->
  -    Txs = pool_db_peek(Mempool, MaxNumberOfTxs),
  +    Txs = pool_db_peek(Mempool, MaxNumberOfTxs, Account),
       {reply, {ok, Txs}, State};
   handle_call({get_candidate, MaxNumberOfTxs, BlockHash}, _From, State) ->
       Txs = int_get_candidate(State, MaxNumberOfTxs, BlockHash),
  
positive.code: %% pool.
  -spec peek(pos_integer() | infinity) -> {ok, [aetx_sign:signed_tx()]}.
  peek(MaxN) when is_integer(MaxN), MaxN >= 0; MaxN =:= infinity ->
      gen_server:call(?SERVER, {peek, MaxN}).
  
  -spec get_candidate(pos_integer(), binary()) -> {ok, [aetx_sign:signed_tx()]}.
  get_candidate(MaxN, BlockHash) when is_integer(MaxN), MaxN >= 0,
  
negative.code:         , get_max_nonce/1
          , invalid_txs/2
          , peek/1
          , peek/2
          , push/1
          , push/2
          , size/0
  