From fb441ca6dc48863150d5b1c2d3a802084404ba9f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 May 2013 08:23:25 -0700
Subject: [PATCH] sequences.extras: adding remove-first.

---
 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 49a39d827a..ada017936c 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -416,3 +416,9 @@ PRIVATE>
 : all-shortest ( seqs -- seqs' ) dup shortest length filter-length ;
 
 : all-longest ( seqs -- seqs' ) dup longest length filter-length ;
+
+: remove-first ( obj seq -- seq' )
+    [ index ] keep over [ remove-nth ] [ nip ] if ;
+
+: remove-first! ( obj seq -- seq )
+    [ index ] keep over [ remove-nth! ] [ nip ] if ;