steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

combinators: faster hashcode for iota.

db4
John Benediktsson 2013-03-01 10:42:20 -08:00
parent c2f09e9533
commit 35c313c6b4
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/combinators/combinators.factor
View File

@ -201,6 +201,8 @@ M: reversed hashcode* [ sequence-hashcode ] recursive-hashcode ;
M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ; M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
M: iota hashcode* over 0 <= [ 2drop 0 ] [ sequence-hashcode ] if ;
M: hashtable hashcode* M: hashtable hashcode*
[ [
dup assoc-size 1 eq? dup assoc-size 1 eq?