each-pair ( ... array quot: ( ... key value -- ... ) -- ... )

Vocabulary

hashtables.private

Inputs

array	an object
quot	a quotation with stack effect ( ... key value -- ... )

Outputs

None

Definition

USING: kernel math math.private sequences sequences.private ;

IN: hashtables.private

: each-pair
    ( ... array quot: ( ... key value -- ... ) -- ... )
    [
        [ length 2/ ] keep [
            [ 1 fixnum-shift-fast ] dip [ array-nth ] 2keep
            pick tombstone? [ 3drop ]
        ] curry
    ] dip [ [ 1 fixnum+fast ] dip array-nth ] prepose
    [ if ] curry compose each-integer ; inline