choke-peer ( peer -- peer )

Vocabulary

bittorrent

Inputs

peer

an object

Outputs

peer

an object

Definition

USING: accessors io ;

IN: bittorrent

: choke-peer ( peer -- peer )
    T{ choke } write-message t >>self-choking
    T{ not-interested } write-message f >>self-interested flush
    ;