multiset-emplace ( obj multiset -- )

Vocabulary

multisets

Inputs

obj	an object
multiset	an object

Outputs

None

Definition

USING: accessors assocs kernel math ;

IN: multisets

: multiset-emplace ( obj multiset -- )
    [ dup 1 + ] change-size
    [ avl>> set-at ] [ hash>> swapd push-at ] 3bi ; inline