append-weights ( weight-levels quot -- seq )

Vocabulary

unicode.collation.private

Inputs

weight-levels	an object
quot	an object

Outputs

seq

an object

Definition

USING: accessors kernel math sequences ;

IN: unicode.collation.private

: append-weights ( weight-levels quot -- seq )
    [ [ ignorable?>> ] reject ] dip map [ zero? ] reject ;
    inline