From 416556ce63ca4e163c772ab2caaf5406ff5dad23 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Mon, 17 Dec 2007 15:46:55 -0500
Subject: [PATCH] New hashcode function

---
 core/sequences/sequences.factor | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 92e160f3bf..2902f574eb 100755
--- 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 [