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

sequences: remove unused 2reverse-each word

db4
Slava Pestov 2010-05-10 00:45:31 -04:00
parent 4478c3a51a
commit 67b82a2509
2 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/sequences/sequences-docs.factor
View File

@ -1200,15 +1200,6 @@ HELP: 2selector
{ "selector" quotation } { "accum1" vector } { "accum2" vector } }
{ $description "Creates two new vectors to accumultate values based on a predicate. The first vector accumulates values for which the predicate yields true; the second for false." } ;
HELP: 2reverse-each
{ $values
{ "seq1" sequence } { "seq2" sequence } { "quot" quotation } }
{ $description "Reverse the sequences using the " { $link <reversed> } " word and calls " { $link 2each } " on the reversed sequences." }
{ $examples { $example "USING: sequences math prettyprint ;"
"{ 10 20 30 } { 1 2 3 } [ + . ] 2reverse-each"
"33\n22\n11"
} } ;
HELP: 2unclip-slice
{ $values
{ "seq1" sequence } { "seq2" sequence }

3
core/sequences/sequences.factor
View File

@ -444,9 +444,6 @@ PRIVATE>
: 2each ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) -- ... )
(2each) each-integer ; inline
: 2reverse-each ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) -- ... )
[ [ <reversed> ] bi@ ] dip 2each ; inline
: 2reduce ( ... seq1 seq2 identity quot: ( ... prev elt1 elt2 -- ... next ) -- ... result )
[ -rot ] dip 2each ; inline