read-entry-index ( n zim -- entry/f )


Vocabulary
zim

Inputs
nan object
ziman object


Outputs
entry/fan object


Definition
USING: accessors kernel sequences ;

IN: zim

:: read-entry-index ( n zim -- entry/f )
n 4294967295 =
[ f ] [
zim entries>> :> entries n entries nth
[ n zim (read-entry-index) dup n entries set-nth ]
unless*
] if ;