combinators: move recursive-hashcode to kernel vocab.

[factor.git] / core / byte-arrays / byte-arrays.factor

diff --git a/core/byte-arrays/byte-arrays.factor b/core/byte-arrays/byte-arrays.factor
index ee7f5d660e1ed1b6caaba570e5e6495e30cbc24f..315a603f2b4819a90d740c58eb2d6cd557533613 100644 (file)
--- a/core/byte-arrays/byte-arrays.factor
+++ b/core/byte-arrays/byte-arrays.factor
@@ -19,22 +19,16 @@ M: byte-array clone-like
 M: byte-array length length>> ; inline
 M: byte-array nth-unsafe swap integer>fixnum alien-unsigned-1 ; inline
 M: byte-array set-nth-unsafe swap integer>fixnum set-alien-unsigned-1 ; inline
-: >byte-array ( seq -- byte-array ) B{ } clone-like ; inline
 M: byte-array new-sequence drop (byte-array) ; inline
-
-M: byte-array equal?
-    over byte-array? [ sequence= ] [ 2drop f ] if ;
-
-M: byte-array resize
-    resize-byte-array ; inline
+M: byte-array equal? over byte-array? [ sequence= ] [ 2drop f ] if ;
+M: byte-array hashcode* [ sequence-hashcode ] recursive-hashcode ;
+M: byte-array resize resize-byte-array ; inline
 
 INSTANCE: byte-array sequence
 INSTANCE: byte-array byte-sequence
 
+: >byte-array ( seq -- byte-array ) B{ } clone-like ; inline
 : 1byte-array ( x -- byte-array ) B{ } 1sequence ; inline
-
 : 2byte-array ( x y -- byte-array ) B{ } 2sequence ; inline
-
 : 3byte-array ( x y z -- byte-array ) B{ } 3sequence ; inline
-
 : 4byte-array ( w x y z -- byte-array ) B{ } 4sequence ; inline