(cwd) ( bufsiz -- path )

Vocabulary

io.files.unix

Inputs

bufsiz

an object

Outputs

path

an object

Definition

USING: accessors byte-arrays continuations kernel libc math unix
unix.ffi ;

IN: io.files.unix

: (cwd) ( bufsiz -- path )
    [ dup <byte-array> over [ getcwd ] unix-system-call nip ]
    [ dup errno>> ERANGE = [ drop 2 * (cwd) ] [ rethrow ] if ]
    recover ;