>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 @ cut-slice swap ] produce
    nip ; inline