New hashcode function

2007-12-17 15:46:55 -05:00 · 2007-12-17 15:46:55 -05:00 · 416556ce63
parent cd86eb8feb
commit 416556ce63
1 changed files with 2 additions and 7 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -669,16 +669,11 @@ PRIVATE>
        [ <column> dup like ] curry* map
    ] unless ;

-! : sequence-hashcode ( n seq -- x )
-!    0 -rot [
-!        hashcode* >fixnum swap 31 fixnum*fast fixnum+fast
-!    ] curry* each ; inline
-
 : sequence-hashcode-step ( oldhash newpart -- newhash )
    swap [
-        dup -2 shift swap 5 shift
+        dup -2 fixnum-shift >fixnum swap 5 fixnum-shift >fixnum
        fixnum+fast fixnum+fast
-    ] keep bitxor ;
+    ] keep bitxor ; inline

 : sequence-hashcode ( n seq -- x )
    0 -rot [