?adjoin ( elt set -- ? )

Vocabulary

sets

Inputs

elt	an object
set	a set

Outputs

?

a boolean

Word description

A version of adjoin which returns whether the element was added to the set.

Definition

IN: sets

GENERIC: ?adjoin ( elt set -- ? )

Methods

USING: hash-sets hash-sets.private kernel sets ;

M: hash-set ?adjoin dup ?grow-hash (adjoin) ;


USING: kernel sets ;

M: set ?adjoin 2dup in? [ 2drop f ] [ adjoin t ] if ;


USING: hash-sets.wrapped hash-sets.wrapped.private sets ;

M: wrapped-hash-set ?adjoin wrapper@ ?adjoin ; inline