remove >r r> from grouping

2008-11-29 13:29:38 -06:00 · 2008-11-29 13:29:38 -06:00 · 347087fab8
parent 4b6126f92a
commit 347087fab8
1 changed files with 1 additions and 1 deletions
--- a/basis/grouping/grouping.factor
+++ b/basis/grouping/grouping.factor
@ -11,7 +11,7 @@ TUPLE: chunking-seq { seq read-only } { n read-only } ;
 : check-groups dup 0 <= [ "Invalid group count" throw ] when ; inline

 : new-groups ( seq n class -- groups )
-    >r check-groups r> boa ; inline
+    [ check-groups ] dip boa ; inline

 GENERIC: group@ ( n groups -- from to seq )