steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

move sequence-hashcode-step to private

db4
Doug Coleman 2010-01-22 16:30:22 -06:00
parent afdb7f6329
commit a16d8db145
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -603,12 +603,16 @@ ERROR: assert-sequence got expected ;
: assert-sequence= ( a b -- ) : assert-sequence= ( a b -- )
2dup sequence= [ 2drop ] [ assert-sequence ] if ; 2dup sequence= [ 2drop ] [ assert-sequence ] if ;
<PRIVATE
: sequence-hashcode-step ( oldhash newpart -- newhash ) : sequence-hashcode-step ( oldhash newpart -- newhash )
>fixnum swap [ >fixnum swap [
[ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi [ -2 fixnum-shift-fast ] [ 5 fixnum-shift-fast ] bi
fixnum+fast fixnum+fast fixnum+fast fixnum+fast
] keep fixnum-bitxor ; inline ] keep fixnum-bitxor ; inline
PRIVATE>
: sequence-hashcode ( n seq -- x ) : sequence-hashcode ( n seq -- x )
[ 0 ] 2dip [ hashcode* sequence-hashcode-step ] with each ; inline [ 0 ] 2dip [ hashcode* sequence-hashcode-step ] with each ; inline