rel90% ( slice -- )

Vocabulary

binhex.private

Inputs

slice

an object

Outputs

None

Definition

USING: kernel make math sequences ;

IN: binhex.private

: rel90% ( slice -- )
    [ first ] [ length 255 /mod ] bi
    [ [ dup rel90, 144 , 255 , ] times rel90, ]
    [ dup 1 > [ 144 , , ] [ drop ] if ] bi* ;