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

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

db4
John Benediktsson 2013-12-19 09:07:46 -08:00
parent 186f1e11d9
commit d23cb84ad4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/grouping/extras/extras.factor
View File

@ -51,7 +51,7 @@ INSTANCE: tail-clumps immutable-sequence
<PRIVATE <PRIVATE
: (group-by) ( elt key groups -- groups' ) : (group-by) ( groups elt key -- groups )
pick [ t ] [ last first dupd = not ] if-empty [ pick [ t ] [ last first dupd = not ] if-empty [
swap 1vector 2array over push swap 1vector 2array over push
] [ ] [