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

grouping: fix circular-slice equal.

db4
John Benediktsson 2013-03-28 20:05:42 -07:00
parent 77e8346ec0
commit 795f18a2b1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/grouping/grouping.factor
View File

@ -107,7 +107,7 @@ TUPLE: circular-slice { from read-only } { to read-only } { seq read-only } ;
INSTANCE: circular-slice virtual-sequence INSTANCE: circular-slice virtual-sequence
M: circular-slice equal? over slice? [ sequence= ] [ 2drop f ] if ; M: circular-slice equal? over circular-slice? [ sequence= ] [ 2drop f ] if ;
M: circular-slice hashcode* [ sequence-hashcode ] recursive-hashcode ; M: circular-slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
@ -133,4 +133,4 @@ M: circular-clumps nth
circular-clumps new-groups ; inline circular-clumps new-groups ; inline
: circular-clump ( seq n -- array ) : circular-clump ( seq n -- array )
[ <circular-clumps> ] map-like ; inline [ <circular-clumps> ] map-like ; inline