steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove >r r> from grouping

db4
Doug Coleman 2008-11-29 13:29:38 -06:00
parent 4b6126f92a
commit 347087fab8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/grouping/grouping.factor
View File

@ -11,7 +11,7 @@ TUPLE: chunking-seq { seq read-only } { n read-only } ;
: check-groups dup 0 <= [ "Invalid group count" throw ] when ; inline : check-groups dup 0 <= [ "Invalid group count" throw ] when ; inline
: new-groups ( seq n class -- groups ) : new-groups ( seq n class -- groups )
>r check-groups r> boa ; inline [ check-groups ] dip boa ; inline
GENERIC: group@ ( n groups -- from to seq ) GENERIC: group@ ( n groups -- from to seq )