wrapped-hash-set

Vocabulary

hash-sets.wrapped

Definition

USING: hash-sets ;

IN: hash-sets.wrapped

TUPLE: wrapped-hash-set
    { underlying hash-set read-only initial: HS{ } } ;

Methods

USING: hash-sets.wrapped prettyprint.custom sets ;

M: wrapped-hash-set >pprint-sequence members ;


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

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


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

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


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

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


USING: accessors hash-sets.wrapped sets ;

M: wrapped-hash-set cardinality underlying>> cardinality ;
    inline


USING: accessors hash-sets.wrapped sets ;

M: wrapped-hash-set clear-set underlying>> clear-set ; inline


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

M: wrapped-hash-set delete wrapper@ delete ; inline


USING: accessors hash-sets.wrapped kernel ;

M: wrapped-hash-set equal?
    over wrapped-hash-set?
    [ [ underlying>> ] same? ] [ 2drop f ] if ;


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

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


USING: accessors hash-sets.wrapped sequences sets ;

M: wrapped-hash-set members
    underlying>> members [ underlying>> ] map! ;


USING: continuations hash-sets.wrapped namespaces
prettyprint.config prettyprint.custom ;

M: wrapped-hash-set pprint*
    nesting-limit inc
    [ pprint-object ] [ nesting-limit dec ] finally ;