11 lines
319 B
Factor
11 lines
319 B
Factor
! Copyright (C) 2014 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.strings destructors kernel libc system ;
|
|
IN: libc.unix
|
|
|
|
M: unix strerror ( errno -- str )
|
|
[
|
|
1024 [ malloc &free ] keep [ strerror_r ] 2keep drop nip
|
|
alien>native-string
|
|
] with-destructors ;
|