check-err ( err -- )

Vocabulary

io.files.trash.macosx.private

Inputs

err

an object

Outputs

None

Definition

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

IN: io.files.trash.macosx.private

: check-err ( err -- )
    dup noErr =
    [ drop ]
    [ GetMacOSStatusCommentString utf8 alien>string throw ] if ;