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

sequences.extras: Allow from to be f in ?<slice>

locals-and-roots
Doug Coleman 2016-04-07 13:22:18 -07:00
parent 2ada639a62
commit a15465a9c2
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/sequences/extras/extras.factor
View File

@ -149,8 +149,10 @@ PRIVATE>
: cut-slice* ( seq n -- before after ) : cut-slice* ( seq n -- before after )
[ head-slice* ] [ tail-slice* ] 2bi ; [ head-slice* ] [ tail-slice* ] 2bi ;
: ?<slice> ( from to/f sequence -- slice ) : ?<slice> ( from/f to/f sequence -- slice )
over [ nip [ length ] [ ] bi ] unless <slice> ; inline [ [ 0 ] unless* ] 2dip
over [ nip [ length ] [ ] bi ] unless
<slice> ; inline
: sequence>slice ( sequence -- slice ) : sequence>slice ( sequence -- slice )
[ drop 0 ] [ length ] [ ] tri <slice> ; inline [ drop 0 ] [ length ] [ ] tri <slice> ; inline