From d57566496915e0e56f4c819430813e790507ad11 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@secrets.local>
Date: Tue, 11 Nov 2008 13:06:31 -0600
Subject: [PATCH] add two words to sequences.lib

---
 extra/sequences/lib/lib.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index 6fe3de4f03..9dc01c04fa 100755
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -152,3 +152,6 @@ PRIVATE>
 
 : enumerate ( seq -- seq' ) <enum> >alist ;
 
+: splice ( left-seq right-seq seq -- newseq ) swap 3append ;
+
+: surround ( seq left-seq right-seq -- newseq ) swapd 3append ;