Add documentation for sift!

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index ed97389d291b3f82090f97f781fbbc767223d10e..81de4b8e28dcd99b98f7287d3f105b89bfa26332 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -498,7 +498,7 @@ PRIVATE>
 : sift-as ( seq exemplar -- newseq )
     [ ] swap filter-as ;
 
-: sift! ( seq -- newseq )
+: sift! ( seq -- seq' )
     [ ] filter! ;
 
 : harvest-as ( seq exemplar -- newseq )