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