grouping.extras: fix stack effect names for (group-by).

2013-12-19 09:07:46 -08:00 · 2013-12-19 09:07:46 -08:00 · d23cb84ad4
parent 186f1e11d9
commit d23cb84ad4
1 changed files with 1 additions and 1 deletions
--- a/extra/grouping/extras/extras.factor
+++ b/extra/grouping/extras/extras.factor
@ -51,7 +51,7 @@ INSTANCE: tail-clumps immutable-sequence

 <PRIVATE

-: (group-by) ( elt key groups -- groups' )
+: (group-by) ( groups elt key -- groups )
    pick [ t ] [ last first dupd = not ] if-empty [
        swap 1vector 2array over push
    ] [