with-peer ( peer quot -- )

Vocabulary

bittorrent

Inputs

peer	an object
quot	an object

Outputs

None

Definition

USING: accessors io.sockets io.streams.duplex namespaces ;

IN: bittorrent

:: with-peer ( peer quot -- )
    [
        peer remote>> remote-address set
        peer local>> local-address set
        peer stream>> quot with-stream*
    ] with-scope ; inline