: each-directory-file ( pathname quot -- )
    '[ _ each ] with-directory-files ; inline