sign-extender ( signed? bits -- quot )

Vocabulary

classes.struct.private

Inputs

signed?	an object
bits	an object

Outputs

quot

an object

Definition

USING: kernel ;

IN: classes.struct.private

: sign-extender ( signed? bits -- quot )
    [ sign-extend ] curry [ when ] 2curry ;