<fs-ref> ( path -- fs-ref )

Vocabulary

io.files.trash.macos.private

Inputs

path

an object

Outputs

fs-ref

an object

Definition

USING: alien.strings io.encodings.utf8 kernel ;

IN: io.files.trash.macos.private

: <fs-ref> ( path -- fs-ref )
    utf8 string>alien
    kFSPathMakeRefDoNotFollowLeafSymlink FSRef new
    [ f FSPathMakeRefWithOptions check-err ] keep ;