X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=core%2Fsequences%2Fsequences.factor;h=fb05d331e14e0e9a3418a64bf57cf6a310c125ea;hp=394b2b50d88fc36e071b28b041d4e641621763e2;hb=7b9491066cd4176d133f62d519f0e546a3a9a17c;hpb=83e8cdae1c5d1188e5018734674baa8c2d75f7a6

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 394b2b50d8..fb05d331e1 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -821,6 +821,11 @@ PRIVATE>
     [ [ 2unclip-slice ] dip [ call ] keep ] dip
     compose 2reduce ; inline
 
+: map-find ( seq quot -- result elt )
+    [ f ] 2dip
+    [ [ nip ] dip call dup ] curry find
+    [ [ drop f ] unless ] dip ; inline
+
 : unclip-last-slice ( seq -- butlast-slice last )
     [ but-last-slice ] [ peek ] bi ; inline