(bitfield-quot) ( spec -- quot )

Vocabulary

math.bitwise.private

Inputs

spec

an object

Outputs

quot

an object

Definition

IN: math.bitwise.private

GENERIC: (bitfield-quot) ( spec -- quot )

Methods

USING: kernel math math.bitwise.private ;

M: integer (bitfield-quot) [ shift ] curry ;


USING: arrays kernel math math.bitwise.private sequences.private
words ;

M: pair (bitfield-quot)
    first2-unsafe over word?
    [ [ [ execute ] curry ] dip [ shift ] curry compose ]
    [ [ shift ] 2curry ] if ;