read-shorts ( n -- seq' )

Vocabulary

terminfo.private

Inputs

n

an object

Outputs

seq'

an object

Definition

USING: endian grouping io kernel math sequences ;

IN: terminfo.private

: read-shorts ( n -- seq' )
    2 * read 2 <groups>
    [ signed-le> dup 0 < [ drop f ] when ] map ;