throw-internal-error ( code -- msg )

Vocabulary

compression.bzip3.private

Inputs

code

an object

Outputs

msg

an object

Definition

USING: combinators compression.bzip3 kernel ;

IN: compression.bzip3.private

: throw-internal-error ( code -- msg )
    {
        { -1 [ "BZ3_ERR_OUT_OF_BOUNDS" ] }
        { -2 [ "BZ3_ERR_BWT" ] }
        { -3 [ "BZ3_ERR_CRC" ] }
        { -4 [ "BZ3_ERR_MALFORMED_HEADER" ] }
        { -5 [ "BZ3_ERR_TRUNCATED_DATA" ] }
        { -6 [ "BZ3_ERR_DATA_TOO_BIG" ] }
        { -7 [ "BZ3_ERR_INIT" ] }
        [ drop "UNDEFINED_ERR" ]
    } case internal-error ;