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

sequences: change trim-head to not call length unless it needs to.

db4
John Benediktsson 2014-01-08 10:19:26 -08:00
parent b910ca090c
commit d87a1da62f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -985,8 +985,8 @@ PRIVATE>
<PRIVATE <PRIVATE
: (trim-head) ( seq quot -- seq n ) : (trim-head) ( seq quot -- seq n )
over [ [ not ] compose find drop ] dip over [ [ not ] compose find drop ] dip swap
[ length or ] keep swap ; inline [ dup length ] unless* ; inline
: (trim-tail) ( seq quot -- seq n ) : (trim-tail) ( seq quot -- seq n )
over [ [ not ] compose find-last drop ?1+ ] dip over [ [ not ] compose find-last drop ?1+ ] dip