sequences.extras: adding a trim-as word.

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 1c9a376ca3d126734526e03c8adca59408740821..f8e794446031bdac517ec3607a0fc00306f87968 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -74,3 +74,6 @@ IN: sequences.extras.tests
 
 { { } } [ { } round-robin ] unit-test
 { "ADEBFC" } [ { "ABC" "D" "EF" } round-robin >string ] unit-test
+
+{ { } } [ "ABC" [ ] { } trim-as ] unit-test
+{ "ABC" } [ { 32 65 66 67 32 } [ blank? ] "" trim-as ] unit-test

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index f13f99f8cff31354eee48cdafc6186c05b033b72..7d80437e2c36738cdd9c3af42baccdbfbec70d68 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -198,3 +198,6 @@ PRIVATE>
 
 : contains? ( seq elts -- ? )
     [ member? ] curry any? ; inline
+
+: trim-as ( ... seq quot: ( ... elt -- ... ? ) exemplar -- ... newseq )
+    [ trim-slice ] [ like ] bi* ; inline