zlib-error ( n -- )

Vocabulary

compression.zlib

Inputs

n

an object

Outputs

None

Definition

USING: combinators compression.zlib.ffi kernel ;

IN: compression.zlib

: zlib-error ( n -- )
    dup {
        { Z_OK [ drop ] }
        { Z_STREAM_END [ drop ] }
        [ dup zlib-error-message zlib-failed ]
    } case ;