read-val ( header -- val )

Vocabulary

memcached.private

Inputs

header

an object

Outputs

val

an object

Definition

USING: kernel math sequences ;

IN: memcached.private

: read-val ( header -- val )
    [ [ 6 ] dip nth ] [ [ 2 ] dip nth ] bi - (read) ;