number-wrapper

Vocabulary

hash-sets.numbers.private

Definition

USING: math ;

IN: hash-sets.numbers.private

TUPLE: number-wrapper
    { underlying number read-only initial: 0 } ;

Methods

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

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


USING: accessors hash-sets.numbers.private kernel math.hashcodes
;

M: number-wrapper hashcode* nip underlying>> number-hashcode
    ; inline