From 0fe01622de6cce7ad98cca8435ed3e24e9ae834d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 6 Mar 2013 16:39:04 -0800
Subject: [PATCH] sequences.extras: adding sift! and harvest!.

---
 extra/sequences/extras/extras.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 859d8e9b41..605d5555e1 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -224,9 +224,15 @@ PRIVATE>
 : sift-as ( seq exemplar -- newseq )
     [ ] swap filter-as ;
 
+: sift! ( seq -- newseq )
+    [ ] filter! ;
+
 : harvest-as ( seq exemplar -- newseq )
     [ empty? not ] swap filter-as ;
 
+: harvest! ( seq -- newseq )
+    [ empty? not ] filter! ;
+
 : contains? ( seq elts -- ? )
     [ member? ] curry any? ; inline