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

grouping: fix circular-slice equal.

John Benediktsson 2013-03-28 20:05:42 -07:00
parent df3de1d0b4
commit 284de58580
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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