rehash-string ( str -- )

Vocabulary

strings.private

Inputs

str

an object

Outputs

None

Definition

USING: kernel math.private sequences ;

IN: strings.private

: rehash-string ( str -- )
    0 over [
        swap [
            [ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi
            fixnum+fast fixnum+fast
        ] keep fixnum-bitxor
    ] each swap set-string-hashcode ; inline