Handbook
Glossary
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
;