From b83af8c5d23362f3a4280eab26d5ad1a52cee541 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 16:37:23 -0700 Subject: [PATCH] combinators: Forgot an iota method. --- core/combinators/combinators.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor index b6e87f45eb..d7ab2b391c 100644 --- a/core/combinators/combinators.factor +++ b/core/combinators/combinators.factor @@ -201,7 +201,7 @@ M: reversed hashcode* [ sequence-hashcode ] recursive-hashcode ; M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ; -M: iota hashcode* +M: iota-tuple hashcode* over 0 <= [ 2drop 0 ] [ nip length 0 swap [ sequence-hashcode-step ] each-integer ] if ;