USING: compression.zlib.ffi kernel libc math sequences ;

IN: compression.zlib

: zlib-error-message ( n -- * )
dup Z_ERRNO =
[ drop errno "native libc error" ] [
dup neg {
"no error"
"libc_error"
"stream error"
"data error"
"memory error"
"buffer error"
"zlib version error"
} ?nth
] if zlib-failed ;