combinators: Forgot an iota method.

db4
Doug Coleman 2013-03-23 16:37:23 -07:00
parent 39eb4b06ec
commit b83af8c5d2
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;