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

Fix <sliced-clumps>

db4
Slava Pestov 2008-06-12 18:59:06 -05:00
parent 3358381510
commit 61a9a8c0ec
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/grouping/grouping-tests.factor
View File

@ -10,3 +10,5 @@ IN: grouping.tests
2 over set-length 2 over set-length
>array >array
] unit-test ] unit-test
[ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <sliced-clumps> [ >array ] map ] unit-test

2
core/grouping/grouping.factor
View File

@ -56,7 +56,7 @@ M: clumps set-length
M: clumps group@ M: clumps group@
[ n>> over + ] [ seq>> ] bi ; [ n>> over + ] [ seq>> ] bi ;
TUPLE: sliced-clumps < groups ; TUPLE: sliced-clumps < clumps ;
: <sliced-clumps> ( seq n -- clumps ) : <sliced-clumps> ( seq n -- clumps )
sliced-clumps new-groups ; inline sliced-clumps new-groups ; inline