From 61a9a8c0ec36086e9ee69318978e287a0e78cde0 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 12 Jun 2008 18:59:06 -0500
Subject: [PATCH] Fix <sliced-clumps>

---
 core/grouping/grouping-tests.factor | 2 ++
 core/grouping/grouping.factor       | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/grouping/grouping-tests.factor b/core/grouping/grouping-tests.factor
index dcf62e1117..dc3d970fbf 100644
--- a/core/grouping/grouping-tests.factor
+++ b/core/grouping/grouping-tests.factor
@@ -10,3 +10,5 @@ IN: grouping.tests
     2 over set-length
     >array
 ] unit-test
+
+[ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <sliced-clumps> [ >array ] map ] unit-test
diff --git a/core/grouping/grouping.factor b/core/grouping/grouping.factor
index c12d43160c..caf46e5480 100644
--- a/core/grouping/grouping.factor
+++ b/core/grouping/grouping.factor
@@ -56,7 +56,7 @@ M: clumps set-length
 M: clumps group@
     [ n>> over + ] [ seq>> ] bi ;
 
-TUPLE: sliced-clumps < groups ;
+TUPLE: sliced-clumps < clumps ;
 
 : <sliced-clumps> ( seq n -- clumps )
     sliced-clumps new-groups ; inline