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 ] finally
    ] with-directory ; inline