sign-extend ( bits v -- v' )

Vocabulary

images.jpeg.private

Inputs

bits	an object
v	an object

Outputs

v'

an object

Definition

USING: kernel math ;

IN: images.jpeg.private

: sign-extend ( bits v -- v' )
    swap [ ] [ 1 - 2^ < ] 2bi
    [ -1 swap shift 1 + + ] [ drop ] if ;