steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sequences: simplify (map-find).

char-rename
John Benediktsson 2017-02-07 19:42:58 -08:00
parent f4ccfa0f71
commit b51617db16
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/sequences/sequences.factor
View File

@ -1011,8 +1011,7 @@ PRIVATE>
<PRIVATE <PRIVATE
: (map-find) ( seq quot find-quot -- result elt ) : (map-find) ( seq quot find-quot -- result elt )
[ [ f ] 2dip [ [ nip ] dip call dup ] curry ] dip call [ [ f ] 2dip [ nip ] prepose [ dup ] compose ] dip call nip ; inline
[ [ drop f ] unless ] dip ; inline
PRIVATE> PRIVATE>