combinators: Forgot an iota method.
parent
39eb4b06ec
commit
b83af8c5d2
|
@ -201,7 +201,7 @@ M: reversed hashcode* [ sequence-hashcode ] recursive-hashcode ;
|
||||||
|
|
||||||
M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
|
M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
|
||||||
|
|
||||||
M: iota hashcode*
|
M: iota-tuple hashcode*
|
||||||
over 0 <= [ 2drop 0 ] [
|
over 0 <= [ 2drop 0 ] [
|
||||||
nip length 0 swap [ sequence-hashcode-step ] each-integer
|
nip length 0 swap [ sequence-hashcode-step ] each-integer
|
||||||
] if ;
|
] if ;
|
||||||
|
|
Loading…
Reference in New Issue