read-entry ( -- value/f ? )


Vocabulary
bitcask.private

Inputs
None

Outputs
value/fan object
?an object


Definition
USING: endian io kernel math serialize ;

IN: bitcask.private

: read-entry ( -- value/f ? )
4 read be> 4 read be>
[ drop f f ]
[ [ seek-relative seek-input ] [ read bytes>object t ] bi* ]
if-zero ;