with-unix-directory ( path quot -- )

Vocabulary

io.directories.unix

Inputs

path	an object
quot	an object

Outputs

None

Definition

USING: continuations io.directories kernel libc unix.ffi ;

IN: io.directories.unix

: with-unix-directory ( path quot -- )
    dupd [
        [ opendir dup [ throw-errno ] unless ] dip dupd curry
        swap [ closedir io-error ] curry finally
    ] 2curry with-directory ; inline