sequence-hashcode-step ( oldhash newpart -- newhash )


Vocabulary
sequences.private

Inputs
oldhashan object
newpartan object


Outputs
newhashan object


Definition
USING: kernel math math.private ;

IN: sequences.private

: sequence-hashcode-step ( oldhash newpart -- newhash )
integer>fixnum swap [
[ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi
fixnum+fast fixnum+fast
] keep fixnum-bitxor ; inline