read-index ( -- index )

Vocabulary

bitcask.private

Inputs

None

Outputs

index

an object

Definition

USING: assocs endian io kernel serialize ;

IN: bitcask.private

: read-index ( -- index )
    H{ } clone [
        4 read
        [ be> read bytes>object 4 read be> swap pick set-at t ]
        [ f ] if*
    ] loop ;