signed> ( x seq -- n )


Vocabulary
endian.private

Inputs
xan object
seqan object


Outputs
nan object


Definition
USING: kernel math sequences ;

IN: endian.private

: signed> ( x seq -- n )
length 8 * 2dup 1 - bit? [ 2^ - ] [ drop ] if ; inline