From 2ba006cd7174ad00bbdd651f2c9a312bf33e55a3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 7 May 2013 06:15:02 -0700
Subject: [PATCH] sequences.extras: adding remove-last.

---
 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 ada017936c..0f834ed822 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -422,3 +422,9 @@ PRIVATE>
 
 : remove-first! ( obj seq -- seq )
     [ index ] keep over [ remove-nth! ] [ nip ] if ;
+
+: remove-last ( obj seq -- seq' )
+    [ last-index ] keep over [ remove-nth ] [ nip ] if ;
+
+: remove-last! ( obj seq -- seq )
+    [ last-index ] keep over [ remove-nth! ] [ nip ] if ;