filter-strings ( obj strings -- string )

Vocabulary

io.files.acls.macosx

Inputs

obj	an object
strings	an object

Outputs

string

an object

Definition

USING: kernel sequences ;

IN: io.files.acls.macosx

: filter-strings ( obj strings -- string )
    [ [ 1 = ] dip f ? ] 2map sift "," join ;