From 0290be53569daf620fe0ee6f746827d99955c9a8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 7 Dec 2020 12:45:09 -0800
Subject: [PATCH] sets: fix stack effect for gather.

---
 core/sets/sets-docs.factor | 4 ++--
 core/sets/sets.factor      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/core/sets/sets-docs.factor b/core/sets/sets-docs.factor
index b622aba3ce..c2de07b06c 100644
--- a/core/sets/sets-docs.factor
+++ b/core/sets/sets-docs.factor
@@ -198,9 +198,9 @@ HELP: set=
 
 HELP: gather
 { $values
-     { "seq" sequence } { "quot" quotation }
+     { "seq" sequence } { "quot" { $quotation ( ... elt -- ... elts ) } }
      { "newseq" sequence } }
-{ $description "Maps a quotation onto a sequence, concatenates the results of the mapping, and removes duplicates." } ;
+{ $description "Maps a quotation over a sequence, concatenates the results of the mapping, and removes duplicates." } ;
 
 HELP: set-like
 { $values { "set" set } { "exemplar" set } { "set'" set } }
diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 9e8f3da46e..2d0f676263 100644
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -141,7 +141,7 @@ M: sequence clear-set
 : refine ( sets -- set/f )
     [ f ] [ [ ] [ intersect ] map-reduce ] if-empty ;
 
-: gather ( ... seq quot: ( ... elt -- ... elt' ) -- ... newseq )
+: gather ( ... seq quot: ( ... elt -- ... elts ) -- ... newseq )
     map concat members ; inline
 
 : adjoin-at ( value key assoc -- )
-- 
2.34.1