sequences.extras: adding "unsurround" word.

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 529869b93e7181c4462e296a9cd135c3a307974d..70c23a1896c6ee349675a61bd0c38976ff1c33b2 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -96,3 +96,7 @@ IN: sequences.extras.tests
 
 { t } [ "ABC" dup [ blank? ] ?trim [ identity-hashcode ] same? ] unit-test
 { "ABC" } [ " ABC " [ blank? ] ?trim ] unit-test
+
+{ "" } [ "" "" "" unsurround ] unit-test
+{ "" } [ "  " " " " " unsurround ] unit-test
+{ "foo.com" } [ "http://foo.com" "http://" "/" unsurround ] unit-test

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 9dd741f9fe96007d83c10a33c0374c42af898f38..9c2ab19083e059e33f8722902e83bba61a0a9d91 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -213,3 +213,6 @@ PRIVATE>
         over [ first-unsafe ] [ last-unsafe ] bi pick bi@ or
         [ trim ] [ drop ] if
     ] if ; inline
+
+: unsurround ( newseq seq2 seq3 -- seq1 )
+   [ ?head drop ] [ ?tail drop ] bi* ;