move sequence-hashcode-step to private

2010-01-22 16:30:22 -06:00 · 2010-01-22 16:30:22 -06:00 · a16d8db145
parent afdb7f6329
commit a16d8db145
1 changed files with 4 additions and 0 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -603,12 +603,16 @@ ERROR: assert-sequence got expected ;
 : assert-sequence= ( a b -- )
    2dup sequence= [ 2drop ] [ assert-sequence ] if ;

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

+PRIVATE>
+
 : sequence-hashcode ( n seq -- x )
    [ 0 ] 2dip [ hashcode* sequence-hashcode-step ] with each ; inline