pair

Vocabulary

pairs

Definition

IN: pairs

TUPLE: pair value key hash ;

Methods

USING: accessors arrays assocs kernel pairs sequences ;

M: pair >alist
    [ hash>> >alist ] [ [ key>> ] [ value>> ] bi 2array ] bi
    suffix ; inline


USING: assocs kernel math pairs ;

M: pair assoc-size [ assoc-size 1 + ] [ drop 1 ] if-hash ;
    inline


USING: accessors assocs kernel pairs ;

M: pair at*
    [ value>> t ] [ [ at* ] [ 2drop f f ] if-hash ] if-key ;
    inline


USING: assocs kernel pairs ;

M: pair delete-at
    [ cannot-delete-key ] [ [ delete-at ] [ 2drop ] if-hash ]
    if-key ; inline


USING: accessors assocs hashtables kernel pairs ;

M: pair set-at
    [ value<< ] [
        [ set-at ] [ [ associate ] dip swap >>hash drop ]
        if-hash
    ] if-key ; inline