check-zstd-error ( n -- n )

Vocabulary

compression.zstd

Inputs

n

an object

Outputs

n

an object

Definition

USING: alien.c-types compression.zstd.ffi kernel math
math.bitwise ;

IN: compression.zstd

: check-zstd-error ( n -- n )
    dup ZSTD_isError 0 > [
        size_t heap-size 8 * >signed
        dup ZSTD_getErrorName zstd-error
    ] when ;