subseq>bits-le ( bignum n bs -- bits )

Vocabulary

bitstreams

Inputs

bignum	an object
n	an object
bs	an object

Outputs

bits

an object

Definition

USING: accessors math math.bitwise ;

IN: bitstreams

:: subseq>bits-le ( bignum n bs -- bits )
    bignum bs bit-pos>> neg shift n bits ;