write-index ( index -- )

Vocabulary

bitcask.private

Inputs

index

an object

Outputs

None

Definition

USING: assocs endian io kernel sequences serialize ;

IN: bitcask.private

: write-index ( index -- )
    [
        [ object>bytes dup length 4 >be write write ]
        [ 4 >be write ] bi*
    ] assoc-each ;