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_db_open(DbName) ->
      {ok, ets:new(DbName, [ordered_set, public, named_table])}.
  
  -spec pool_db_peek(pool_db(), MaxNumber::pos_integer() | infinity) ->
                            [pool_db_value()].
  pool_db_peek(_, 0) -> [];
  pool_db_peek(Mempool, Max) ->
      sel_return(
        ets_select(Mempool, [{ {'_', '$1'}, [], ['$1'] }], Max)).
  
  %% If TxHash is not already in GC table insert it.
  -spec enter_tx_gc(pool_db(), pool_db_gc_key(), pool_db_gc_value()) -> ok.
  
negative.code:         , get_max_nonce/1
          , invalid_txs/2
          , peek/1
          , peek/2
          , push/1
          , push/2
          , size/0
  