combinators: faster hashcode for iota.

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index 1a76bcc70ece7b34d8640394942bb7bd9cc3d279..de6616d76f923be3a1fe520b9f7189b9a9f9e0c8 100644 (file)
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -201,6 +201,8 @@ M: reversed hashcode* [ sequence-hashcode ] recursive-hashcode ;
 
 M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
 
+M: iota hashcode* over 0 <= [ 2drop 0 ] [ sequence-hashcode ] if ;
+
 M: hashtable hashcode*
     [
         dup assoc-size 1 eq?