sequence-wrapper

Vocabulary

hash-sets.sequences.private

Definition

USING: sequences ;

IN: hash-sets.sequences.private

TUPLE: sequence-wrapper
    { underlying sequence read-only initial: f } ;

Methods

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

M: sequence-wrapper equal?
    over sequence-wrapper?
    [ [ underlying>> ] bi@ sequence= ] [ 2drop f ] if ; inline


USING: accessors hash-sets.sequences.private kernel math
sequences ;

M: sequence-wrapper hashcode*
    underlying>> [ sequence-hashcode ] recursive-hashcode ;
    inline