(inc-hash-set-cursor) ( array n -- n' )

Vocabulary

cursors.private

Inputs

array	an object
n	an object

Outputs

n'

an object

Definition

USING: combinators.short-circuit hashtables.private kernel math
sequences sequences.private ;

IN: cursors.private

: (inc-hash-set-cursor) ( array n -- n' )
    [ 2dup swap { [ length < ] [ nth-unsafe tombstone? ] } 2&& ]
    [ 1 + ] while nip ; inline