From d23cb84ad4f66bbd9bb91dda414f3cc600fcecfe Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 19 Dec 2013 09:07:46 -0800
Subject: [PATCH] grouping.extras: fix stack effect names for (group-by).

---
 extra/grouping/extras/extras.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/grouping/extras/extras.factor b/extra/grouping/extras/extras.factor
index 971626d919..b86f9d851b 100644
--- 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
     ] [