From 78bd877339d05fe03e92c0c8e2ce3ef1dd48e1e6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.internal.stack-effects.com>
Date: Thu, 20 Mar 2008 20:12:01 -0500
Subject: [PATCH] Fix groups set-length

---
 core/splitting/splitting-tests.factor | 8 +++++++-
 core/splitting/splitting.factor       | 2 +-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/core/splitting/splitting-tests.factor b/core/splitting/splitting-tests.factor
index d60403362c..34757e6b22 100644
--- a/core/splitting/splitting-tests.factor
+++ b/core/splitting/splitting-tests.factor
@@ -1,4 +1,4 @@
-USING: splitting tools.test ;
+USING: splitting tools.test kernel sequences arrays ;
 IN: splitting.tests
 
 [ { 1 2 3 } 0 group ] must-fail
@@ -56,3 +56,9 @@ unit-test
 [ { "hello" "hi" } ] [ "hello\nhi" string-lines ] unit-test
 [ { "hello" "hi" } ] [ "hello\rhi" string-lines ] unit-test
 [ { "hello" "hi" } ] [ "hello\r\nhi" string-lines ] unit-test
+
+[ { V{ "a" "b" } V{ f f } } ] [
+    V{ "a" "b" } clone 2 <groups>
+    2 over set-length
+    >array
+] unit-test
diff --git a/core/splitting/splitting.factor b/core/splitting/splitting.factor
index 6416e27eaf..419a30dda4 100755
--- a/core/splitting/splitting.factor
+++ b/core/splitting/splitting.factor
@@ -17,7 +17,7 @@ M: groups length
     dup groups-seq length swap groups-n [ + 1- ] keep /i ;
 
 M: groups set-length
-    [ groups-n * ] keep delegate set-length ;
+    [ groups-n * ] keep groups-seq set-length ;
 
 : group@ ( n groups -- from to seq )
     [ groups-n [ * dup ] keep + ] keep