shift-count ( n -- n' )

Vocabulary

math.integers.private

Inputs

n

an object

Outputs

n'

an object

Definition

USING: kernel math ;

IN: math.integers.private

: shift-count ( n -- n' )
    dup fixnum? [ bignum-shift-count ] unless ; inline