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

sequences.extras: Fix merge-slices

modern-harvey3-triple
Doug Coleman 2018-08-03 11:28:47 -04:00
parent 0a77f6c679
commit 46e930874a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -173,9 +173,10 @@ PRIVATE>
ERROR: slices-don't-touch slice1 slice2 ; ERROR: slices-don't-touch slice1 slice2 ;
: merge-slices ( slice1 slice2 -- slice/* ) : merge-slices ( slice1 slice2 -- slice/* )
slice-order-by-from
2dup ordered-slices-touch? [ 2dup ordered-slices-touch? [
[ from>> ] [ [ to>> ] [ seq>> ] bi ] bi* <slice> [ [ from>> ] bi@ min ]
[ [ to>> ] bi@ max ]
[ drop seq>> ] 2tri <slice>
] [ ] [
slices-don't-touch slices-don't-touch
] if ; ] if ;