change ERROR: words from throw-foo back to foo.

[factor.git] / basis / grouping / grouping.factor

diff --git a/basis/grouping/grouping.factor b/basis/grouping/grouping.factor
index 00cc454ee9669aac6b92d431e512591a1237e08c..233d793483bc21f8f3f785ec26fd22efade18f99 100644 (file)
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@@ -57,7 +57,7 @@ M: abstract-clumps group@
 TUPLE: chunking-seq { seq read-only } { n read-only } ;
 
 : check-groups ( seq n -- seq n )
-    dup 0 <= [ throw-groups-error ] when ; inline
+    dup 0 <= [ groups-error ] when ; inline
 
 : new-groups ( seq n class -- groups )
     [ check-groups ] dip boa ; inline