random-peer ( torrent -- peer )


Vocabulary
bittorrent

Inputs
torrentan object


Outputs
peeran object


Definition
USING: accessors assocs kernel random ;

IN: bittorrent

: random-peer ( torrent -- peer )
dup tracker>> "peers" of random <peer> ;