grouping: fix circular-slice equal.

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index eb9fd54666b8d15379010d5f8a706a0f281e7c3a..9c849e9b696ebccd856f4c6558f57baf5e998ddd 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -107,7 +107,7 @@ TUPLE: circular-slice { from read-only } { to read-only } { seq read-only } ;
 
 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 ;
 
@@ -133,4 +133,4 @@ M: circular-clumps nth
     circular-clumps new-groups ; inline
 
 : circular-clump ( seq n -- array )
-    [ <circular-clumps> ] map-like ; inline
\ No newline at end of file
+    [ <circular-clumps> ] map-like ; inline