>pieces ( str quot: ( str -- i ) -- graphemes )

Vocabulary

unicode.private

Inputs

str	an object
quot	a quotation with stack effect ( str -- i )

Outputs

graphemes

an object

Definition

USING: kernel sequences ;

IN: unicode.private

: >pieces ( str quot: ( str -- i ) -- graphemes )
    [ dup empty? not ] swap [ [ dup ] ] dip
    [ cut-slice swap ] compose compose produce nip ; inline