USING: fry io.directories kernel sequences unicode.case ; IN: fun : each-directory-file ( pathname quot -- ) '[ [ @ ] each ] with-directory-files ; inline : move-each-directory-file ( pathname quot -- ) '[ dup @ move-file ] each-directory-file ; inline : directory-files>lower ( pathname -- ) [ >lower ] move-each-directory-file ; : directory-files>upper ( pathname -- ) [ >upper ] move-each-directory-file ;