set-bitfield ( elt n bitfield -- )

Vocabulary

bittorrent

Inputs

elt	an object
n	an object
bitfield	an object

Outputs

None

Definition

USING: kernel math.bitwise sequences ;

IN: bittorrent

: set-bitfield ( elt n bitfield -- )
    [ bitfield-index rot ] dip -rot
    [ [ set-bit ] [ clear-bit ] if ] 2curry change-nth ;