combinators: move recursive-hashcode to kernel vocab.

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

diff --git a/core/arrays/arrays.factor b/core/arrays/arrays.factor
index 1666bdb4a4732a5c829764d916fa54c5f3e876ae..b396187a63a07063b8211bb742fd0e42cd82ce68 100644 (file)
--- a/core/arrays/arrays.factor
+++ b/core/arrays/arrays.factor
@@ -14,6 +14,7 @@ M: array nth-unsafe [ integer>fixnum ] dip array-nth ; inline
 M: array set-nth-unsafe [ integer>fixnum ] dip set-array-nth ; inline
 M: array resize resize-array ; inline
 M: array equal? over array? [ sequence= ] [ 2drop f ] if ;
+M: array hashcode* [ sequence-hashcode ] recursive-hashcode ;
 M: object new-sequence drop 0 <array> ; inline
 M: f new-sequence drop [ f ] [ 0 <array> ] if-zero ; inline