From d248f2452e56de3825b55cc4c50b50e8301198e4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 5 Apr 2019 16:55:10 -0700 Subject: [PATCH] combinators: faster hashcode for byte-arrays. --- core/combinators/combinators.factor | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor index c1fef4287a..4e44dfe5ae 100644 --- a/core/combinators/combinators.factor +++ b/core/combinators/combinators.factor @@ -1,8 +1,8 @@ ! Copyright (C) 2006, 2010 Slava Pestov, Daniel Ehrenberg. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors arrays assocs hashtables kernel kernel.private -make math math.order math.private quotations sequences -sequences.private sets sorting words ; +USING: accessors arrays assocs byte-arrays hashtables kernel +kernel.private make math math.order math.private quotations +sequences sequences.private sets sorting words ; IN: combinators ! Most of these combinators have compile-time expansions in @@ -198,6 +198,8 @@ M: sequence hashcode* [ sequence-hashcode ] recursive-hashcode ; M: array hashcode* [ sequence-hashcode ] recursive-hashcode ; +M: byte-array hashcode* [ sequence-hashcode ] recursive-hashcode ; + M: reversed hashcode* [ sequence-hashcode ] recursive-hashcode ; M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;